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INTRODUCTION 


This manual provides a compiete description of the Burroughs 


FORTRAN compiler language.* 


The FORTRAN language is designed for writing programs for scientific 
and engineering applications. Statements can be written in the 
general format of mathematical notation, thus increasing the ease 


of soiving formuia oriented probiems. 


The Burroughs FORTRAN compiler operates under the control of the 
Master Control Program (MCP) and similarly, the object code pro- 
duced by the compiler is executed under the control of the MCP. 
For a description of the MCP, reference should be made to the 


System Operation Manual. 


The FORTRAN compiler language is based on USASI FORTRAN (refer to 
the publication: ASA X32 9-1966) Refer + 


nf manana = ~ ft thi = 
eeVAV Vale faw awe 7TH 7vyuyv e KROL 187 appenaix © UL LiLLS 


manual for a listing of the constructs which differ from USAST 
FORTRAN. 


* FORTRAN is an acronym for FORmula TRANslation and was originally 
developed for International Business Machine equipment. 
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SECTION 1 
GENERAL PROPERTIES 


GENERAL. 

Normally, a FORTRAN source program is prepared on punched cards. 
These cards are of three general types: general program cards; 
comment cards; and dollar sign cards. These cards have certain 
column restrictions, and their format is referred to as "restricted 
field format." <A free-field format, as used in time-sharing mode, 


is described in appendix J. 


PROGRAM CARDS. 


statements under the 


FORTRAN STATEMENTS eek 
SEQUENCE 


9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 G6 67 68 G9 70 71 72/73 74 75 76 77 78 79 80 


DODODDODDDDDDDDDDNNNDNDDDDDDNDODDDDDNDNDDHHNDADNDD0000NN0H00000NHNO00000000 
EEEELEREREEEEERREREEEEEEREEEEEEERERAREETEEEE RET TETEEEERTETETTEEE TERTnT 
2222222 2222222222 222222222222222222222222222222222222222222222222222222222222222 
3333 31333333333333333333333333333333333333333333333333333333333333333333 333333333 
44444144444444444444464444444444444444444444444444444444644444444444444444444444444 
6555 51555555555555555555995555555555595595555595555555555555555555559555595955599559555 
GEGEGEEG6GCECGEEEGEEEGGGEEGEGEGGE666EEEEEEEEGEEGGEEEEGEEGGE6GEEEGE6E EG EG GGG GGG GG66666 
TEVENTTTE VET ATI T TAT TAA TT AT ATT ATT TTT Ee a a 


SEER RBSEEEEEEBEGSKEKEEKKEESESKEESSSSSEKESEESKEEKSGKSKEEKEKHEGEEKEEKEEHGGESSGS88EEEESE 


Figure 1-1. Program Card Layout 


ae Columns 1-5. The label of a labeled statement consists of 
from one to five digits and must be placed in columns 
1 through 5. The label may be placed anywhere within these 
columns; neither blanks nor leading zeros are significant 


in differentiating statement labels. All labels within a 


program unit must be distinct. The label field is ignored 
on all non-executable statements and continuation cards 


except for cards containing FORMAT statements. 


Column 6. Column 6 of the initial card of a statement must 


be either blank or zero. Column 6 of a continuation card 


(any additional card after the initial card needed to contain 


the statement) must contain any character other than blank 
or zero. An unlimited number of continuation cards may 
follow an initial card. Continuation cards may not be 


labeled. 


Blank characters are significant only in column 6 of a non- 
comment card, in a Hollerith constant, or in a Hollerith 
field specification. With these exceptions, blanks wiaae Be 
used or omitted without affecting the interpretation of a 


FORTRAN statement. 


Column 7-72. Columns 7 through 72 contain the FORTRAN 


statement. 


Columns 73-80. These columns are not interpreted by the 
compiler and may contain identification or sequencing in- 
formation. This field is, however, analyzed when changes 


are merged with a source tape (see appendix Cc). 


Two or more statements may be punched on the same physical 
card if they are separated by semicolons. If columns 1 
through 5 of the card are interpreted as a label, the label 
corresponds to the first statement on the card. Subsequent 
statements on that card are considered unlabeled. The last 


statement must not end with a semi-colon. 


A program unit must have an END statement as its last card. 
The END statement is used only to tell the compiler that 


it has reached the end of a program unit. 


The END statement is a card with blanks in columns 1 
through 6, the characters E, N; and D once each and in 


that order in columns 7 through 72, preceded by, inter- 


spersed with, or followed by blanks. 


The END statement is not an executable statement. Ifa 
program attempts to execute an END statement, the program 


is terminated with an INVALID EOJ message. 


COMMENT CARD. 


Comment cards are not interpreted by the compiler, but their infor- 


mation does appear on the compilation listing for documentation 


purposes, 


22222222 
3/3 333333 


Card punching limitations are as follows (see figure 1-2) 


Column 1. <A comment card must have the comment code, the 


letter C, in column 1. 
used for comments. 


Columns 73-80. These columns may contain identification 


or sequencing information, 


COMMENTS 


222 2222222222222222222222222222222222222222222222222222222222222122222222 
333333333333333333333333333333333333333333333333333333333333333 3133333333 


444444444444444444444444446444444444444444444444444444444444444444444444444444444 


519555555 


616666666 


10777777 
818888888 


PEEP EEE E EEE eee ee eee eee eee eee ee eee ee eee ee ee 
GEGG6GEEEECEEGGGGEEGEGEEEGEEGE6EEEEGGGEGEREEEEEGEEESEEEESEEEEEEEESEEESEEESE 
DUTTTITIITTITTT TTT TTT TTT TTT TTT TTT dd 
SEEESSKEEFSKKEFGKEKFKSSEHHFKKEKHHGKKKKKHKKKKHKSKKKKKESKKSKKEGKBEHGEKSBBEEBEEES 


Figure 1-2. Comment Card 


toe 


DOLLAR SIGN CARD. 

A dollar sign card is:-used to specify certain compiler options (see 

appendix C). Dollar sign cards must not be interspersed between the 
continuation cards of a multi-card statement. Punching limitations 


of the dollar sign card are as follows (see figure 1-3): 


ae Column 1. Column 1 of a dollar sign card must contain 


a ¢, 


b. Columns 2-72. Columns 2 through 72 contain the compiler 


options desired. 


Ce Columns 73-80. These columns may contain identification 


or sequencing information. 


COMPILER OPTIONS 
SEQUENCE 


9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 G1 62 63 64 65 G6 G7 68 69 70 71 72/73 74 75 76 77 78 79 BO 


DODOCOKDONCONNKHNODNODDDDHDDNDTHKDOFHHOOGOFOKDKHDHAOHOFHOTGGKHTHCKTCHOCKOo Oooo Coos 
8 
TUDTTDPEPTT TTT DDT ETT TAT ATT ATED TTA TTT TTT TTT TTT Tadd 


22222222222 222222222222222222222222222222222222222222222222222222222222 2122222222 
31333333333333333333333333323333333333333333333333333333333333333333333 3333333333 
Waa dada Adda dda adda dada aaa daa aaa aaah aaa aaa dad add dd dadggadd ad ggagaagaaga 
§515555555555555555555555555555555555595555555555555555555555555555555555555555555 
GIG6E6E66666666666666666666666666666F66E66CC6EEESC6E6EGCEEG6EGEEGECECE EEE EGCG G66 GGG E66 
WVTTTTITT TTT TTT TTT TTT TTT TIT TTTTT ddd 


BIBSEEEEESESSSSSKEESBEKEKEKKKKSKHKHHESKGGKKEKGEKEHSKEKKEESSK KEK HEH HHKG SSH BEERRIEGS 


Figure 1-3. Dollar Sign Card 


DECK SET-UP. 
The arrangement of cards for use with the FORTRAN compiler is as 


follows: 


? COMPILE CARD 

2? FORTRAN FILE LABEL EQUATION CARDS 

? FORTRAN CONTROL CARDS 

? OBJECT FILE LABEL EQUATION CARDS 

? OBJECT CONTROL CARDS 


See System 
Operation Manual 


? DATA CARD 
DOLLAR SIGN CARD 
FILE CARDS 


SOURCE DECK 
or 
PATCH DECK 


See appendices 


? END 


The question mark (?) represents an invalid character, and must 


appear in column 1. 


AnD 


SECT 


ION 2 


CHARACTER SET, CONSTANTS, VARIABLE 


CHARACTER SET. 


The FORTRAN character set consists of digits, lett 


characters. 


DIGiTs. 


= 


ers, and special 


A digit is any one of the foiliowing ten characters: O, 1; 2; 


s) 


3 4K, 


5, 6, 7, 8, 9. Digits will be in the decimal number system unless 


otherwise specified. 


LETTERS. 
A letter is any one of the 


F, G; H, I; J; K; L, Ms; N; 


SPECIAL CHARACTERS. 


FORTRAN special characters 


following 26 characters: 


O; P, 


Q> R; S, T, U; V; 


W; Xs Y; Le 
ries, the US 


The USASI FORTRAN special characters are the foliowing: 


Character 


VS oO NO 


Name 


Equal Sign 

Plus Sign 

Minus Sign 
Asterisk 

Slash 

Left Parenthesis 
Right Parenthesis 
Comma 

Decimal Point 
Blank 

Dollar Sign 


B 5700 FORTRAN also recognizes the quote character ("). 


A; B,; C, D; E; 


The following BCL* characters are recognized as alternatives to 


the standard FORTRAN character set: 


FORTRAN BCL 
Character Alternative 
+ & 
= # or + 


( % 
) [ 
* x (BCL multiplication sign) 


@or 3: 


The relational operators are represented in FORTRAN as two-letter 
mnemonics which are preceded and followed by a period. These 


operators and their BCL alternatives are: 


FORTRAN BCL 

Mnemonic Meaning Alternative 
-LT. Less Than < 
-LE. Less Than or Equal < 
NE. Not Equal # 
-GT. Greater Than > 
-GE. Greater Than or Equal = 
-EQ. Equal = 

Two remaining BCL characters serve special purposes. The semicolon 


(;) may be used to separate two or more statements on one physical 
card, and may also be used in a Hollerith field. The right bracket 
(|) is reserved for use by the compiler. Imbedded blanks have no 
meaning in a FORTRAN statement except in a Hollerith field. (see 
paragraph c; page 1=2). 


CONSTANTS. 
Six basic types of constants are allowed in the FORTRAN programming 
language: integer, real, double precision, complex, logical; and 


Hollerith. 


* BCL is an abbreviation for Burroughs Common Language. 
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INTEGER CONSTANT. 


An integer constant is formed by a string of decimal digits. 


The general form is: 


where -549755813887 < N < +549755813887 
Oe 


An integer constant is written without a decimal point or exponent. 


Tf the range specified above is exceeded, the constant is inter- 


preted as a double precision constant. 


Examples: 


REAL CONSTANT. 
A real constant is a string of decimal digits with a decimal point 


and, optionally; an exponent. 


The general form is: 


where M and N are strings of decimal digits, only. 


one of which may be blank; X is a signed or un- 
signed one or two-digit integer which is the ex- 
ponent. 


A real constant may be signed or unsigned. 


An exponent is optional. If it is used, then a letter E follows 


the mantissa and precedes the exponent. 


The exponent, if present, is interpreted such that 107 is multiplied 


times the mantissa. 


amo 


4,31359146672E68 > ABS(R) > 8.7581154021E-47, where R is a real 


constant, is the range within which a real constant may fall. 


Examples: 
56.9 
»075 
=253 


71.32E+02 (which represents 7132.0) 
-~71.32E-2 (which represents -.7132) 


DOUBLE PRECISION CONSTANTS. 
A double precision constant is of the same form as a real constant, 
except that its mantissa may contain up to 23 decimal digits and 


its exponent is preceded by a D instead of an E. 


The general form is: 


where M and N are strings of decimal digits, only 
one of which may be blank; X is a Signed or unsigned 


poe or two-digit integer which is the exponent. | 


The mantissa may contain up to 23 decimal digits. If more are used, 


then the mantissa is truncated to the 23 most-significant digits. 


The range of a double precision constant is identical to that ofa 


real constant. 


A constant which does not have an exponent but which specifies more 
digits than a single precision value can maintain is interpreted as 


a double precision constant. 


Examples: 


12D-1 
-~5.36D+56 
52D-07 


4 
jum ft 
— a 


~ 


19 ~ 
gy vA 
+S i 


USE OF SINGLE PRECISION CONSTANTS IN DOUBLE PRECISION STATEMENTS. 
There can be a great difference in the internal machine representa- 
tion of single or double precision constants when they are used in 


double precision statements. An example shows this situation best: 


Given: DOUBLE PRECISION D 


2 


3-14159265 (Single Precision Constant) 


rO 


D 
D 


] 
a 
[a 
i 
fo 
nt 
\o 
rw 
ON 
i! 
) 
+ 
© 
oO 
oa 
Se) 
o) 
c 
on 
bal 
M 


Precision Constant) 
The internal representation of statement 1 takes 13 octal digits: 


= 3.1103755236220000000000000, 


nea 
The internal representation of statement 2 takes 26 octal digits: 


= 3. 1103755236215236041736370, 


Vaneevnal 


Thus, due to the very large (perhaps indefinitely large) number of 
octal digits required to represent the constant .14159265, there is 


a difference in the internal representations. 


COMPLEX CONSTANT. 
A complex constant, in the mathematical sense, is composed of a 


real part and an imaginary part. 
The general form is: 


where M is the real part and 
N is the imaginary part. 


Each of the two components may be either a real constant or an 


integer constant. 


Double precision components are not permitted. 
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Examples: 


Complex Mathematical 
Constant interpretation 

NOTE 
(5,64.2) 5 + 64.2: a 
(0,-1) Wi 
(3u5E=2,75.9) -035 + 75.94 


LOGICAL CONSTANT. 


A logical constant may be either true or false. 


The general form is: 


Examples: 


- TRUE. 
~FALSE. 


HOLLERITH CONSTANT. 
A Hollerith constant is a string of any valid FORTRAN characters. 


The general form is: 


a. eee 
where s is the string. 


Blanks appearing in the string must be included in the field width 


w when form wHs is used. 


The string may contain any valid FORTRAN characters except the 


aracter (") and its alternatives: @and:. 


f 


2G bid 


Strings are stored in memory, six characters per word. 


Although a word is capable of storing eight characters, only the 
pense ntatanemtn 
six right-most character positions are used for storage. The two 


left-most character positions always contain zeros. 


Tf a string does not contain a multiple of six characters, then in 
the last word used for storing the string the remaining characters 


are stored left-justified over a field of blanks. 
Examples: (b represents blank) 


2HbT 
AH"Cs" 
"DOUT" 
5SHABCDE 


VARIABLES. 
There are two forms of variables: simple and subscripted. Each of 
these are, in turn, classified into five basic types: integer, 


real, double precision, complex, and logical. 


SIMPLE VARIABLE. 


A simple variable represents a single value. 
The general form is: 


From one to six alphanumeric characters, 


the first of which must be alphabetic. 


A variable name with a first character of I, J, K, L, M, or N 
implicitly types that variable as an integer variable. A variable 
name beginning with any other alphabetic character is implicitly 
typed as a real variable unless otherwise defined in a Type state- 


ment. 


A variable of type DOUBLE PRECISION, COMPLEX, or LOGICAL must be 


declared as such in a Type statement. 
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Examples: 


Integer Real 
Variables Variables 
ITB2 A123 
J12 TSUB2 
KALPHA ZSQD 


SUBSCRIPTED VARIABLE. 
A subscripted variable refers to a particular element of an array 
of the same name as the subscripted variable. (See section 6 for 


additional discussion. ) 


The general form is: 


N(a,1a,s-++ sa) 


where N is the array name, AL 2»Adre+- 2a, are 
arithmetic expressions which determine the 
values of the subscripts of the subscripted 
variable, and n is the number of subscripts 
declared in the declaration of the array N. 


A subscripted variable is named and typed according to the same 


rules as a simple variable. 


As specified by default or in the Type statement (see page 6-10), 


all elements of an array must be of the same type, i.e., if N(2) is 


integer, then N(3) must also be integer. 
A subscript may be an integer or real arithmetic expression. 


If a subscript is a real arithmetic expression, then it will be 
evaluated and converted to integer by rounding before being used 


as a subscript. 


Subscripted variables must have their subscript bounds specified in 
a DIMENSION, Type, or COMMON statement prior to their first appear- 


ance in either an executable statement or in a DATA statement. 


A subscript value, after any necessary conversion, must be greater 
than zero and may not exceed the bound specified for the array in 


the DIMENSION, Type, or COMMON statement in which it is declared. 


Multi-dimensioned arrays are stored with the left-most subscript 
varying most rapidly and the right-most subscript varying least 


rapidly. 


For example, the array A(2, 4 ) would be stored: 


A(1, 1, 1) 
A(2, 1, 1) 
A(1, 2, 1) 
A(2, 2, 1) 
A(t. Ds. 1) 
A(2, 3, 1) 
A(1, 1, 2) 
A(2, 1, 2) 
A(1, 2, 2) 
A(2, 2, 2) 
A(1, 3, 2) 
A(2, 3, 2) 
ACLs. A. 235) 
A(2..1, 3) 
A(1, 2, 3) 
A(2, 2, 3) 
Al ds 35, 3) 
A(2, 3, 3) 
A(i, 1, 4) 
A(2,. 15. 4) 
A{i, 2, 4) 
A(2, 2, 4) 
A(1, 3, 4) 
A(2, 3, 4) 
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Examples: 


B(L) 

GSUB(8*K+3,L) 
DMIN(I,J,K) 
ISUB(I,J,*K/L,C,B*D,F/G) 


SECTION 3 
EXPRESSIONS 


GENERAL. 
An expression is any constant, variable; or function reference, or 
combination of these separated by operators, commas; or parentheses. 


There are two types of expressions: 


na A «an2 4th a 
Aa. Aritnmetic. 


b. Logical. 


ARITHMETIC EXPRESSION. 


An arithmetic expression is a rule for computing a numerical value. 


The general form is: 


Any constant, variable, or function ref- 
erence; or combination of these separated 
by operators, commas; 


or parentheses. 


An arithmetic expression may contain the following arithmetic 


operators: 


Operator Meaning 
+ Addition 


- Subtraction 

* Multiplication 
Division 

aX Exponentiation 


Grouping Operator Pair 


Arithmetic expressions may be connected by arithmetic operators 
to form longer arithmetic expressions, provided no two operators 
appear in sequence and no arithmetic operator is assumed to be 


present. Examples of invalid arithmetic expressions are; 


A++B 


(A+2) (B+3) 


Any arithmetic expression can be enclosed in parentheses. 


All actual arguments of a function reference are evaluated before 


the function is evaluated. 


Parentheses may be used in an arithmetic expression to denote the 
order in which operations are to be performed. Parentheses have 
first precedence in determining the order of evaluation and, when 
nested parentheses occur; evaluation proceeds from the innermost 


to outermost set. 


The precedence order used in evaluating an arithmetic expression 


is as follows: 


(highest ) Primary 
Exponentiation 
Multiplication and division 


(lowest ) Addition and subtraction 


where the precedence for successive operators of the same level is 


from left to right, e.g., A**B**C is evaluated as (A*¥*B)**C, 


For the operation A**B, the valid combinations and results are 


noted in table 3-1. 


Table 3-1 
Resultant Type for Operation A**B 


Exponent B 


Double 
Precision Complex 


Integer Integer Real Double Not permitted 
Precision 


Real Real Real Double Not permitted 
Precision 
Double Double Double Double Not permitted 
Precision Precision Precision Precision 
Complex Complex Complex Complex Not permitted 
1 (see NOTE) | | 


NOTE 
The double precision exponent is con- 
verted to real before exponentiation. 


Any element may be combined with any other element through use of 
all the arithmetic operators except exponentiation. The resultant 
type is listed in table 3-2 for A OP B; where A and B are operands 


and OP is either +, -; *; or /. 


Examples: 


(xX + A(I,J,L) - SIN(Y(K))) 
XC + VYOSsL 165397 


Table 3-2 


Combination of Elements 


Integer Integer Double Complex 
(see NOTE 1) Precision 


Real Real Real Double Complex 
Precision 


Double Double Double Double Complex 
Precision Precision Precision Precision (see NOTE 2) 


Complex Complex Complex Complex Complex 
(see NOTE 2) 


NOTE 1 


Integer division yields a truncated result. 
NOTE 2 


The double precision element is con- 
verted to real before the operation. 


See 


LOGICAL EXPRESSION. 


A logical expression is a rule for computing a logical value. 


The general form is: 


Any constant, variable, or function reference, 
or combination of these separated by operators, 


logical operators, commas, or parentheses, 


Logical quantities may be combined by logical operators to form 
logical expressions in a manner analogous to the combination of 


arithmetic quantities by arithmetic operators. 


A logical quantity, of itself, may also constitute a logical ex- 


pression. 
A logical quantity may be: 


a. Any logical variable. 
b. Either of the logical constants .TRUE. or .FALSE. 
Any logical function reference. 


d. Any relation. 
The logical operators are defined in table 3-3. 


The precedence of operators in the evaluation of logical expres- 


sions is: 


(highest ) Function reference 
** (Exponentiation) 


* and / (Multiplication and division) 


+ and - (Addition and subtraction) 
EPs. «UBS 5  2BOs4. aNEye «CGT ws: «Gh. 
.NOT. 
.AND. 

(lowest ) ~OR. 


Parentheses may be used to alter the order of evaluation (just as 


in arithmetic expressions). 
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Table 3-3 


Definitions of Logical Operators 


C_epermter [Cini ——CCSC—C*ds 


The expression .NOT. P is .TRUE. 
when P is .FALSE. The expression 
.NOT. P is .FALSE. when P is 

- TRUE. 


-AND. The expression P .AND. Q is .TRUE. 
when both P and @ are .TRUE. Et 
is .FALSE. if either P or Q is 
~-FALSE. or both are .FALSE. 


-OR. The expression P .OR. Q is .TRUE. 
if either P or Q; or both, are 
-TRUE. It is .FALSE. if and only 
if both P and Q are .FALSE. 


Examples: 


also a logical expression 


-NOT. B 
A 


(B) 


A.OR.B 


((B)) 


B .AND. A 


RELATION. 


A relation is a conditional logical expression. 


The general form is: 


A OP B 


where A and B are arithmetic expres- 
sions and OP is a relational operator. 


The relational operators and their meaning are noted in table 3-4. 
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Table 3-4 


Relations and Meanings 


Greater Than Ay 


Greater Than or Equal to A 


2 
Less Than A, 

Less Than or Equal to A 
Not Equal to A 


Equal to A 


ved 
ee 
im 


NOTE 


A, and Ao may be of type INTEGER, REAL; or DOUBLE 
PRECISION. Neither may be of type COMPLEX. 


Relations, when evaluated, may have one of two values; true or 


false. 


Chains of relations are not permitted, e.g.,; 


A .LT. B .LT. C 


A correct form would be: 


A .LT. B .AND. B .LT. CG 


A .LT. B .AND. A .LT. C 


whichever is intended. 
Examples: 
(A, B,; Q@; Z,; E,; F, X; G,;, H, and Y are arithmetic expressions. ) 


A .LT. B 
A .LT. B .AND. Q .GT. Z 
(E+F).NE.SIN(X).OR.(G-H).LT.ABS(Y) 
A.LT.B.AND. (C.NE.D.OR.A.NE.D) 
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SECTION 4 
ASSIGNMENT STATEMENTS 


GENERAL. 


There are three types of assignment statements: 


a. Arithmetic assignment statement. 
b. Logical assignment statement. 


RN ONT AT 


C. ASSIGN statement. 


ARITHMETIC ASSIGNMENT STATEMENT. 

The arithmetic assignment statement causes the value represented 
by an arithmetic expression appearing to the right of the assign- 
ment operator (=) to be assigned to the simple or subscripted 


variable appearing to the left of the assignment operator. 


The general form is: 


where v represents a variable name, 
simple or subscripted, and a.e. rep- 
resents an arithmetic expression. 


The variable v cannot be of type LOGICAL. 


The rules provided in table 4-1 apply for type and value assign- 


ment in arithmetic expressions. 


Examples: 
X = YZ 
xX(10) = A(5)+B(6)-(C/D) 
JX = 342 
X = 5.49 


X(1) = B(1)+c0OS(A(1)) 
X(4) = D - C#*2 
X(I,J) = A(I,J)+B(J,1) 


Table 4-1 


Rules for Arithmetic Assignment Statement (v = a) 
a 
Integer Integer Assign. 
Integer Real Truncate to an integer and assign. 
Integer Double Truncate to an integer and assign. 
Precision 
Integer Complex Not permitted. 
Real Integer Assign. 
Real Real Assign. 
Real Double Assign the most-significant part. 
Precision 
Real Complex Not permitted. 
Double Integer Extend to double precision and assign. 
Precision 
Double Real | Extend to double precision and assign. 
| Precision | | 
Deuble Double Assign. 
| Precision | Precision | 
Double Complex Not permitted. 


Precision 


Complex Integer Not permitted. 
Complex Real Not permitted. 


Complex Double Not permitted. 
Precision 


' Complex Complex Assign. 


LOGICAL ASSIGNMENT STATEMENT. 

The logical assignment statement causes the value represented by the 
logical expression appearing to the right of the assignment operator 
(=) to be assigned to the simple or subscripted variable of type 


LOGICAL appearing to the left of the replacement operator. 


The general form is: 


r wnera w Ss aA simniae ar sithsnrintad H 
wnere yy Simple of ce 


. 
1 
ee] oH wasn ae 


variable of type LOGICAL and l.e. 
represents a logical expression. 


R 


The variable v must be of type LOGICAL. 
Examples: 
(K, L; M,; and N are logical variables. ) 


Ke 2A)-<0R. “B 

L555) = + TRUES 

M=A .LT. B 

N = Q .GT. R .AND. Z .LT. P 


ASSIGN STATEMENT. 


The general form is: 


ASSIGN n TO t 


where n is a statement label ref- 
erenced in an assigned GO TO state- 
ment, and t is a simple integer or 
real variable appearing in the same 
assigned GO TO statement. 


The statement label n must be referenced in the assigned GO TO 


statement being initialized. 


The variable t must be the same variable referenced in the assigned 


GO TO statement being initialized. 


Example: 


ASSIGN 10 TO J 


SECTION 5 
CONTROL STATEMENTS 


GENERAL. 

Control statements are used to alter the normal flow of a program. 
They may transfer control to another part of the program, terminate 
computation, or control iterative processes. Control may be trans- 


ferred to iabeied executabie statements oniy. There are i2 dif- 


ae Unconditional GO TO statement. 
b. Computed GO TO statement. 

c. Assigned GO TO statement. 

d. Arithmetic IF statement. 

e. Logical IF statement. 

f. DO statement. 

g. CONTINUE statement. 

h. PAUSE statement. 

i. STOP or CALL EXIT statement. 
je RETURN statement. 

k. CALL statement (not including CALL EXIT and CALL ZIP). 
1. CALL ZIP statement. 


UNCONDITIONAL GO TO STATEMENT. 
Execution of this statement causes control to be transferred toa 
statement other than that sequentially following the unconditional 


GO TO statement. 


The general form is: 


| GO TO n | 


where nis a statement label which 


exists within the same program unit. 


A statement label n must be defined within the same program unit 


as the unconditional GO TO statement which references it. 


The statement labeled n may appear before or after the uncondi- 


tional GO TO statement referencing it. 


Example: 


GO TO 31 


COMPUTED GO TO STATEMENT. 
Execution of this statement causes control to be transferred to one 
of several statements other than that sequentially following the 


computed GO TO statement. 


The general form is: 


where Ny] Mos... ,;n; are statement labels 


and t is an arithmetic expression. 


Control will be transferred to the statement label whose position 
in the list is equal to the value of the arithmetic expression 

t; 1.2.€@e 3 ae 

The statement labels n My reee My must exist in the same program 


1 
unit as the computed GO TO statement. 


The computed GO TO statement is valid for values of t such that 
1< t < i, otherwise the program will be terminated with an INVALID 
INDEX. 


The arithmetic expression t must be of type INTEGER or of type 
REAL. 


If t is of type REAL, it will be evaluated and then rounded to an 


integer. 
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Example: 


K=4 
GO TO (50,40,30,20,10).-.K 


Execution of these two statements will cause control to be trans- 


Ferred to statement 20, 


ASSIGNED GO TO STATEMENT. 
Execution of this statement causes control to be transferred to 
one of several alternative statements other than that sequentially 


following the assigned GO TO statement. 


The general form is: 


GO TO t,; (n, +n 


2 2 


where t is a simple intege 


abie and n,n 
3 Ss e@ @ 8 
1 ae 


Control will be transferred to the statement whose label has been 


ASSIGNed to t with an ASSIGN statement. 


The values ASSIGNable to t are the actual statement labels appear- 


ing in the list n,>n,;. on.. 


DAP Sis ee 


The variable t must be a simple integer or real variable. 


If t has not been assigned a label appearing in the list, an INVALID 


INDEX termination of the program will result. 


The statement labels Ny eNo ress ons must appear in the same program 


unit as the ASSIGN statement and the ASSIGNed GO TO statement (see 


ASSIGN statement, section 4). 


Example: 


ASSIGN 10 TO J 
GO: TO 93(505404 30520410) 


DD 


Execution of these two statements will cause control to be trans- 


ferred to statement 10. 


ARITHMETIC IF STATEMENT. 

Execution of the arithmetic IF statement causes an arithmetic 
expression to be evaluated and a different branch to be made de- 
pending upon whether the expression evaluated is negative; zero; or 


positive. 


The general form is: 


where a.e. is an arithmetic expression 


and nN, ns: and n.. are statement labels. 


Execution of the arithmetic IF statement causes control to be trans- 
ferred to nj) :M5s or n. if a.e. is less than, equal to; or greater 


than zero; respectively. 
The arithmetic expression a.e. may not be complex. 


Examples: 


IF(A-B) 1,2,;3 
IF(X(1I,J)-C*E) 43,51,96 


LOGICAL IF STATEMENT. 

Execution of the logical IF statement causes a iogical expression 
to be evaluated and the sequence of execution of the program state- 
ments to be altered, depending upon whether the logical expression 


evaluated is true or false. 


The general form is: 


where l.e. is a logical expression and 
s is an executable FORTRAN statement. 


The statement s may be any executable FORTRAN statement except a 


DO statement. 


5-4 


Execution of the logical IF statement results in the logical ex- 
pression lee. being evaluated. If lee. is true, statement s is 
executed, If l.e. is false, then statement s is not executed, and 
control is transferred to the next sequential executable statement 


following the logical IF statement. 
Examples: 


X and Y are of type LOGICA 


IF(X .AND. ¥) A = 3.1 
IF(A .LE. B .OR. I .EQ. 0) GO TO 5 


DO STATEMENT. 


The DO statement provides a means of controlling program loops. 


The general form is: 


| 
DO m i=n,.n Mg 


1° "2 
where m is a statement label, i 
is a variable, and nj;ne; and 
n3 are arithmetic expressions. 


Execution of a DO statement results in the following actions: 


a. The control variable i is set to the initial value ni: 


b. All executable statements up to and including the terminal 


statement are executed, 


c. The control variable i is incremented by ty 

d. The value of the control variable i iS compared to the 
terminal value n,. If the terminal value has been ex- 
ceeded, control - transferred to the first executable 
statement following the terminal statement. Otherwise, 
steps b through d are repeated until the control variable 


comparison is satisfied. 


In the general form, the control variable i is a simple integer or 


real variable. 


DD 


In the general form, m is the label of an executable statement 


terminating the DO loop. 


In the general form, n n,:; and n, are integer or real arithmetic 


L bd 2 © 3 
expressions which are the initial, terminal, and incremental para- 
meters, respectively, for the control variable i. 


If not specified, n, is assumed to be l. 


3 


If present: n, must be greater than zero. 


3 


In the general form, n, must be greater than ni: 


The DO statement is always executed once with its initial value. 


The DO parameter is incremented and compared to n, prior to its 
use and may be modified by any statement within the range of the 


DO loop. 


The control variable i is available for use bv all statements within 
the DO loop; including the terminal statement. and may be modified 
as desired. The control variable i is available for computation 
when exiting from a DO loop by transferring outside the loop and 

not making a normal exit. When a normal exit is made from the DO 


loop, the control variable is\undefined 


ne. 


*, 
a 


et eS nena 


A DO statement may appear within a DO loop. This is defined as 
being a DO nest. However, all statements in the range of the 


latter DO loops must be within the range of the initial DO loop 


po[ po[_ 


(see figure 5-1). 


DO 


"i 


Figure 5-1. DO Nesting 


Nested DO's may specify the same statement as their last statement nm. 


Any number of DO statements may be nested within the range of another 


DO statement. 


There are (0) restrictions on transfer out of or into the range of a 
DO loop. Tf a transfer is made into the range of a DO loop, then 
the programmer is responsible for the appropriate assignment of a 
value to the control variable i. If no assignment for i is 


indicated, it is assumed to be zero. 


When several DO statements share the same last statement m. the 
control variable i of the outermost DO statements is not reassigned 
and tested until each of the inner DO statements in its range is 
satisfied, starting with the innermost one. When the outermost 

DO statement is satisfied; a normal exit is made and control is 
transferred to the next executable statement following the range of 


the just-satisfied DO Loop. 


Examples: 


TAQ? gps 


DO 5 INDEX=5,10 
DO 5 J=1;10 


CONTINUE STATEMENT. 

The CONTINUE statement is considered a dummy statement because it 
causes no action in the execution of a program. It is freyuently 
used as the terminal statement of a DO loop to provide a transfer 


point for an IF or GO TO statement. 


The general form is: 


| CONTINUE | 


Example: 


DO 30 J=2,N 
B(J)=NM(J-1) + INC 
IF (N(J).LT. MAX) GO TO 30 
K=J-1 
GO TO 4O 
30 CONTINUE 
HO... 


PAUSE STATEMENT. . 
The PAUSE statement is used to interrupt execution of a program 


when action is required of the computer operator. 


The general form is: 


PAUSE n 


where n is an integer constant up 
to six digits long or is blank. 


If the n is present, it is displayed to the operator at the time of 
interruption. Execution is resumed with the first executable state- 
ment immediately following the PAUSE statement after an OK message 


has been keyed in at the SPO (refer to System Operation Manual). 


NOTE 


SPO stands for SuPervisOry printer, 
and specifies the console typewriter. 


Examples: 


PAUSE 

PAUSE 30 
STOP OR CALL EXIT STATEMENT. 
The STOP statement causes an immediate termination of the program. 
A STOP statement must appear prior to the END statement in the main 


program. If it is omitted, the program will be DSed with an 
INVALID EOJ. 
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The general form is: 


where n is an integer constant up 
to six digits long or is blank. 


The CALL EXIT statement is equivalent to STOP. 


CALL EXIT 


The general form is: 


Examples: 


STOP 

STOP 4 

CALL EXIT 
RETURN STATEMENT. 


Execution of the RETURN statement causes control to be transferred 


from a subprogram to the calling program. 


The general form is: 


where n iS an arithmetic 
expression or is blank. 


Every subprogram must contain at least one RETURN statement, but 


more than one may appear in a subprogram. 


If n is not blank, control returns to the point of reference and is 
used to select one of the formal parameters in the subroutine re- 
presented by an asterisk (nonstandard return). Control then returns 
to the statement specified by a corresponding actual parameter in 


the calling program (see nonstandard returns, section 84 


If n is blank, then control returns to the point of reference in 


the calling program unit. 


CALL STATEMENT. 


A subroutine is referenced by a CALL statement. 


The general form is: 


CALL N(a,sajs++- 2a.) 


where N is the name of the subroutine and 
Ay rag reso 1A are the actual parameters. 


The actual parameters which constitute the parameter list must 
agree in order; number, and type with the corresponding formal 


parameters in the program unit defining the subroutine subprogram. 


If a formal parameter is real, then an integer actual parameter 


may be used. 


For purposes of type agreement, a Hollerith constant is considered 


of type INTEGER. 


An actual parameter in a subroutine reference may be one of the 


following: 


a. A Hollerith constant. 

b. A variable name. 

c A subscripted variable. 
d. An array name. 

e. An expression. 

f. The name of a subprogram. 


$label (see nonstandard returns, section 8) 


Execution of a subroutine reference results in an association of 
actual parameters with all appearances of formal parameters in 
executable statements in the subroutine body; and in an association 
of actual parameters with variable dimensions in the subroutine, 


if any exist. 


Following the above associations, control is transferred to the 


first executable statement in the subroutine body. 


If an actual parameter is a subscripted variable with an arith- 
metic expression as a subscript, then, effectively, the arithmetic 
expression is evaluated; and the resulting subscripted variable is 
associated with the corresponding formal parameter in the sub-~ 


routine. 


If a formal parameter of a subroutine is an array name; the corres- 
ponding actual parameter must be an array name or an array element 


name. 


CALL: FALIAK.Y 5%) 


CALL KOST(A(I+J,2)+B,"HEAD") 


CALL ZIP STATEMENT. 
The CALL ZIP statement is used to pass control and/or parameter 


card information to the MCP, 


The general form is: 


CALL ZIP(A) 


The parameter A should be a real or integer array which is large 


enough to contain any information that will be placed into it 6 


characters per word. 
Lf A as) Lar 


4 
an as 


used. 


The information contained in A must be in BCL format as it would 


appear on physical control/program cards. 


The letters CC must be the first two characters contained in the 


array. Only one set of these letters may appear in the array A. 
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The information following the letters CC must appear as a single 
punched card except that the array A may contain up to 162 charac- 


ters (27 words, 6 characters per word). 


The information that would be contained on more than one physical 
control card may be put into the array, but a semicolon must be 


used to delimit the end of a logical card. 


The last logical card must bes 


END. 


The control information in A should pertain to only one compiler or 


object program. 


After the CALL ZIP statement has been executed, the FORTRAN object 
program that executed the statement continues processing while the 
MCP examines the control information in the array A. If the MCP 
finds an error in this control information, an appropriate error 


message is typed on the SPO. 


Example: 
DIMENSION E(i2) 
READ(5,25,END=30) (E(1I),I=1; 12) 
25 FORMAT (12A6) 
30 CALL ZIP(E) 
Input : 1 as Serer are eer ee (card column) 


CC EXECUTE A/B; COMMON=20;END. 


In the above example, the first program, after executing statement 
30, will continue processing with the next executable statement. 
Meanwhile, the MCP will scan the information in array E and, if 
program A/B is on disk, will initiate the execution of A/B. The 
array is available for other uses immediately upon returning from 
ZIP. Thus, the original program and the program initiated by it 


will be running simultaneously but independently. 


SECTION 6 
DECLARATIVE STATEMENTS 


rHNERAL. 
The declarative statements are non-executable statements used to 
supply variable and array information and storage allocation infor- 


mation. The seven different declarative statements are: 


a. DIMENSION statement. 
b. COMMON statement. 

Gz EQUIVALENCE statement. 
d. Type statement. 

e. EXTERNAL statement. 

f. DATA statement. 


ge. Function statement (see page 8-1). 


DIMENSION STATEMENT. 
The DIMENSION statement provides a means for specifying a collection 
of values with a single name, and at the same time specifying to the 


compiler the structure which is imposed on the collection. 


The general form is: 


DIMENSION a,(i,)> a,(i,)> az(is) ak ot 


where each a is an array name and each i repre- 
sents dimension information having the form of 
one or more subscript bounds separated by commas, 


Each bound is an integer constant. 


Variable names appearing with subscripts in the source program must 


for them prior to their use. 
Dimension information may be given in a DIMENSION, COMMON, or Type 
statement; however, the dimension information for a specific array 


hame must appear only once in the program unit. 


The magnitude of the values of the subscript bounds indicates the 
maximum values the subscripts may obtain in any reference to the 


array. The lower subscript bound is always one. 


An array may have variables for its subscript bounds in a FUNCTION 
or SUBROUTINE subprogram only. In this case, the array name and 
all variables used as subscript bounds must appear as formal para- 
meters in the subprogram. The actual values assumed by these 
variables are not determined until the subprogram is entered at 


execution time (see variable dimensions below). 
No array may exceed 32767 words. 


VARTABLE DIMENSIONS. 

An array can be placed ina subprogram with variables used as 
dimensions instead of constants. The advantage to this is that a 
given subprogram can perform calculations on such a generally 
stated array with specific dimensions provided from any calling 
program. The specific dimensions must be provided in a DIMENSION 
statement in the calling program. The actual values assumed by 
these variables are not determined until the subprogram is en- 


tered at execution time, 
The general form is: 


DIMENSION aj (ij), ag(iz);, a3(i3z)s...-- 


where each a is an array name and each i is 
one or more subscript bounds separated by 


commas. Each bound is an integer variable. 


Variables can be used as dimensions of an array in a FUNCTION or 


u 
SUBROUTINE subprogram only. 
The variables must appear in a DIMENSION statement of the subroutine. 


The array name and all variables used as dimensions must appear as 
formal parameters in the initial FUNCTION, SUBROUTINE; or ENTRY 


statement. 


Specific dimensions passed to the subprogram from the calling 
program must be identified in a DIMENSION statement of the calling 


program. 


Specific variable size can be passed down through more than one 
level of a subprogram to a given subprogram using the variable 


as a dimension. 


Example: 


DIMENSION A(10,20) 


END 
SUBROUTINE SUB(B;K,L) 
DIMENSION B(K,L) 


COMMON STATEMENT. 

The COMMON statement provides a means for sharing core storage between 
the main program and its subprograms, or among the subprograms. In- 
formation appearing in the storage area reserved by a COMMON state- 
ment is ordered in the sequence specified by the COMMON statement. 

The ordered information is relative to the beginning of a given 

COMMON block. They are two types of COMMON storage: labeled and 
unlabeled. 


The general form is: 


COMMON/x, /a,/x,/a,/. wo [x /% 


where each a in the COMMON statement is a list 
containing any combination of variable names, 


array names, or dimensioned array names, and 
each x is a block name or is empty. If x, is 
empty, the first two slashes are optional. 


Array names in a COMMON statement may have their dimensioning infor- 
mation appended to them. When arrays are dimensioned in a COMMON 


statement, they cannot be dimensioned in Type or DIMENSION statements. 


COMMON area storage is assigned in the order of appearance of the 


elements within the COMMON block list. 


Block names may be duplicated within a program unit, causing the 
associated elements from each COMMON block list having the same 

name to be cumulatively assigned to one block with the same name. 

The effect is the same as declaring the block name once and listing 
all elements for that block in the COMMON block list. This is also 
true for multiple unlabeled COMMON block lists within a given program 


unit. 
Variables and array names may not be duplicated in COMMON statements. 


COMMON elements may be assigned initial values through use of the 


BLOCK DATA subprogram. 


The number and type of variables appearing in the COMMON block list 
and related EQUIVALENCE statements specify the length of the COMMON 
block. 


All subscript bounds for any array which appears in a COMMON state- 


ment must be integer constants. 


A COMMON block need not have the same size in each program unit in 
which it appears. However, if the size of a block is greater than 
1023 words in any program unit, it must also be greater than 1023 


words in the first program unit in which it appears. 
No COMMON block may exceed 32767 words. 


A double precision or complex variable in a COMMON block must be 
positioned such that the first of the two words containing the double 
precision or complex variable is always located at an odd-numbered 
word location in the block. As an example, assume the variables A, 


B, and C to be declared as follows: 
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DOUBLE PRECISION A 
COMPLEX B 
REAL C 


COMMON could then be declared in either of the following ways: 


COMMON A: B, C 
COMMON B; A; C 


In both of these declarations, A and B begin in odd-numbered loca- 


tions. 


COMMON COMMON 
BLOCK BLOCK 

| A, 1 ai 

2 A, 2 Bo 

z By 3 sa 
hy A 

h B. | A, 
, | C | 5 Cc 


However, it would be incorrect to declare COMMON as: 


COMMON C; A; B 
COMMON C; B; A 
COMMON A; C; B 
COMMON B; GC; A 


In the first two examples, both A and B would begin in even locations. 


COMMON COMMON 
BLOCK BLOCK 
if cl] 1 c 
2 A, et aI 
3 A, 3 2 
4 B, 4 Ay 
5 By ? oP 
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In the third example, A would be positioned correctly but B would not. 


COMMON 
BLOCK 
1 Ay 
2 A, 
3 C 
4 By 
2 B, 


In the final example, B would be positioned correctly but A would not. 


COMMON 
BLOCK 


Wo FW NR 
Pr OQ ww 


Labeled COMMON statements are specified by a COMMON biock name, 
slashes, preceding the list of elements assigned to that labeled 
COMMON block. Termination of the list of elements assigned toa 
block is by: 


ae Termination of the COMMON statement. 
jer Introduction of a new block name. 


om Introduction of an unlabeled COMMON block. 


COMMON block names are unique identifiers, however; a block identi- 
fier may be reused within the program unit to represent another type 
element. When a block name is present in a COMMON statement, it is 


embedded in slashes, e.g., /x/. 


Blocks of labeled COMMON statements in different program units which 


have the same block name will occupy the same storage area. 


Unlabeled COMMON statements are specified by a blank block name, 
C..3 # is followed by the unlabeled COMMON block list. The two 
slashes may be omitted if they appear at the beginning of a COMMON 
statement list. Termination of an unlabeled COMMON block is accom- 
plished by the introduction of a block name or termination of the 


COMMON statement. COMMON elements may not be used in DATA statements 
(see page 6-13.) 


Examples: 


COMMON X,Y,Z 
COMMON /Y/Q,;R;S 

COMMON / / K(5,5);L 

COMMON A,B,C/S/D(10;10) ,E 
COMMON /Y/Q;R;S/ /K(5;5).L 


EQUIVALENCE STATEMENT. 
By using the EQUIVALENCE statement, a storage location can be given 
more than one name. Variables or array elements not listed in an 


EQUIVALENCE statement have unique storage assignments. 


The general form is: 


EQUIVALENCE (Q,) (95) 2(Q5)2++4+-(Q ) 


n 


where each Q is a list of two or more 
Simple or subscripted variables or 
array names separated by commas. 


Subscripts must be positive integer constants and must correspond in 


number to the declared number of dimensions of the array; or be 


single subscripted by equating the element position in the array to 
a single subscript. For an explanation of the latter, see table 6-1. 


An array name without subscripts is considered as that identifier 


with a subscript of one. 


Any number of equivalence lists may appear in an EQUIVALENCE state- 


ment. 
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Elements may be entered into COMMON blocks by setting them equivalent 
to an element appearing in a COMMON statement list. If the element 
is an array element, the whole array is brought into COMMON. This 
may extend the size of the COMMON block involved either at its begin- 


ning or at its end. 


Example: 


COMMON Z 
DIMENSION Z(100) ,E(200) 
EQUIVALENCE (E(200),Z(1)) 


oe ¢ 


END 
SUBROUTINE SBT 
COMMON X(100) 


The above statements will allocate storage so that X will be equiva- 
lent to the first 100 locations of E; not Z. In other words, the 
EQUIVALENCE statement has displaced the origin of COMMON. 


When two elements share storage because of their appearance in one 
or more EQUIVALENCE statements, only one may appear in a COMMON 


statement. 


All subscript bounds for an array which appears in an EQUIVALENCE 


statement must be integer constants. 


An EQUIVALENCE statement must precede any reference to the elements 
EQUIVALENCEd. 
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Table 6-1 


EQUIVALENCing Multiple Subscripts To One Subscript 


Array 
Element 


Number of 
Dimensions 


Array 
Declarations 


Same Array Element 
With One Subscript 


Maximum Single- 
Subscript Value 


A(T) A(i) A(i) I 
A(I, J) A(4i5.3) A(i+Ix(j-1)) IxJ 
A(I, J, XK) A(i, j,k) A(i+Ix( j-1)+IxJx(k-1)) IxJxK 


A(1I,J,K,L) Alas 93 ks) 


}A(44Ix( j-1)+Ixdx(k-1)+IxJx 


IxJ xKxL 
Kx(1-1)) 


Example; 

DIMENSION C (120) 

DIMENSION B (4,5,6) Element referenced B (3,2,1) 
EQUIVALENCE (B C) 


B(3,2,1) = C([ 3]+[4x(2-1) ]+[4x5x(1-1)]) = c(7) 


When two elements share storage because of their appearance in one 
or more EQUIVALENCE statements, only one may appear in a COMMON 


statement. 


All subscript bounds for an array which appears in an EQUIVALENCE 


statement must be integer constants. 


An EQUIVALENCE statement must precede any reference to the elements 
EQUIVALENCEd. 


Example: 


DIMENSION A(10),;, B(5,5) D(3;3,3) 
EQUIVALENCE (A(3), B(5,4), D(1,1;1)), (A(1),E) 


The above statements assign specific variable values to the same 
storage locations, as shown below, where each horizontal line is 


one memory location. 


Variable Value 


ae B(3,4) sate E 

A(2) B(4,4) pres bite 
A(3) B(5 ,4) D(1,1,1) ee 
re) B(1,5) D(2,1,1) es 
A(5) B(2,5) D(3,1,1) . 
A(6) B(3,5) D(1,2,1) mesh 
A(7) B(4,5) D(23241) bs 
fees B(5,5) een cee 
ee or DC253%1) ee 


TYPE STATEMENT. 
Type statements are used to declare the type of variables, array 


names, and function names. The general form is: 


INTEGER type list | 


REAL type list 
DOUBLE PRECISION type list 
| COMPLEX type list 


LOGICAL type list 


where a type list is composed of variable 
names; array names, or statement function 
names separated by commas. In addition, 
arrays may be dimensioned by appending 
the dimension information to the array 
name in one or more subscript positions. 


When a subscripted variable is declared DOUBLE PRECISION or COMPLEX, 
the compiler will automatically assign two words of storage for 


each element of an array. 
Implicit type assignment is overridden by Type statements. 


A variable name must be typed prior to its use in an executable 
statement or DATA statement. If the first letter of a variable 
name ist, J, K, L; M; or N, it is implicitly declared of type 

INTEGER and need not appear in a Type statement. If a variable 
name begins with any other letter, it is implicitly declared of 


type REAL and need not appear in a Type statement. 


Examples: 


INTEGER X,Y,Z,A(10,10) 
REAL H,I,J.K 
LOGICAL ATEST, BTEST 


EXTERNAL STATEMENT. 


When an actual parameter list of a function or subroutine reference 
contains a function or subroutine name, that name must appear in an 


EXTERNAL statement. 


The general form is: 


EXTERNAL ny 5nod5.---+- 9Ny 


where the n's are the names of the functions 
or subroutines appearing in the parameter 
list of a function or subroutine reference. 


The EXTERNAL statement appears in the calling program unit. 


Examples: 
EXTERNAL SIN,COS 
CALL SUBT (SIN,COS) 


END 
SUBROUTINE SUBT (A,B) 
TANX=A (X)/B(X) 


RETURN 
END 


DATA STATEMENT. 


The DATA statement permits variables and arrays to be initialized 


to predetermined values. 


The general form is: 


DATA list, /d,1d,1d,)-..d)/slist,/d,1dg1-..d)/>--. 


A list element may be an array name or a simple or 
subscripted variable name, where the subscripts must 
be integer constants. If more than one element of 
an array is to be initialized, an implied DO loop 
must be employed (see implied DO loop in section 7). 
The d. represents a constant, or has the form ixc, 
where i is a repeat count and c is a constant. 


The constants may be any of the following: 
a. Integer, real, or double precision constant. 


dD. Octal constants of the form Odd...d; i.e.; the letter O 
followed by an optional sign, followed by 1 to 16 octal 
digits {not greater than 0+3777777777777777 nor iess 
than Of977 777777 IIT 177s If a minus sign is included, 
the mantissa sign bit [1:1] is set to 1 if it was pre- 


viously O, or O if it was l. 


c. Logical constants. The quantities may be expressed as 


- TRUE. > FALSE. 9T 5 or F. 
dad. Hollerith constants. 


A one-to-one correspondence must exist between the list elements 


and the constants. 


The first time a subprogram is entered, all of the variables contained 
in all DATA statements within that subprogram are initialized. [In 
succeeding entries to the subprogram, the DATA statements are ignored 
and the variables within the DATA statement assume the last value 


assigned to them at the time of the previous exit from the subprogram. 


If a Hollerith constant is used, it must be considered a single value 


ingle element, even though it may actually 


a 


and must correspond to a 


occupy several computer words. If it occupies more than one word, 


the list element must be an array name or an implied DO loop with 
enough array elements remaining in the array to contain the Hollerith 


constant (see Hollerith constant in section 2). 


Eiements in a COMMON block may appear in a DATA statement only in a 


BLOCK DATA statement (see BLOCK DATA in section 8). 


Variables assigned quantities by a DATA statement may be assigned 


other values during execution. 


When an array name without subscripts appears in the list, the entire 


array is initialized. 


Subscripted variables appearing in a program must have their sub- 
script bounds specified in a DIMENSION, COMMON, or Type statement 
prior to the first appearance of the subscripted variable ina 


DATA statement. 


Example: 


DIMENSION T(3),V(3) 

INTEGER X,Y,Z,A(5;5) 

REAL H,1,J,N(8) ,K 

LOGICAL ATEST ,BTEST 

DATA X,Y,H/1,3,5.7/ 51, ,ATEST/6.2;,99.99,F/ 

DATA Z,A,K,BTEST,(N(I),I=1,8)/0,25*0,-99. ,. TRUE. 58*77.77/ 
DATA T(5)/6HONEWRD/ 

DATA V/14HABCDEFGHIJKLMN/ 
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GENERAL. 


SECTION 7 
INPUT /OUTPUT 


The following areas of Input/Output (I/0) are covered in this 


section: 


ar, 


Implied DO loop. 

Action labels. 

Auxiliary I/O statements. 
FORMAT statement. 
NAMELIST statement. 

Tape and Disk I/O. 


INPUT STATEMENTS. 


In explanations presented in this manual section; the symbols 


Us Fs ce 


k, and 1 have the following meanings unless otherwise 


specified: 


u - file specifier or unit number. The file specifier is an 


arithmetic expression whose value identifies the file 
being used for input or output. The file specifier must 
conform to the restrictions of a subscript. Unless other- 
wise specified by a FILE card (see appendix B), it is as- 
sumed at object time that the file specifier designates a 


tape unit. The range of u must be 0 <u < 31, 


random record number. It is an arithmetic expression 
whose value represents a particular record within a random 


disk file. 


format specifier. It may be the label of a FORMAT state- 


ment, an array identifier, or a NAMELIST identifier. 


1 - action label. It specifies a statement label to whicha 
branch is made if a parity error or an End-of-File con- 
dition is encountered during execution of an input state- 


ment. 


k - input/output list. It may be a blank or,it may contain 
one or more variables and/or implied DO loops, in any 


combination. 


Execution of any of the READ statements causes the next record to 

be read from the specified file. The information is scanned and con- 
verted as specified by the format specifier f if the statement is 

a formatted READ statement. The values are assigned to the ele- 
ments specified by the list k. If the list is not specified, either 
a record is skipped or data is read into the locations in storage 


occupied by the FORMAT statement. 


FORMATTED INPUT STATEMENTS. 
Formatted input statements are always associated with a FORMAT 


statement, an array containing FORMAT specifications, or a NAMELIST. 


The general form is: 


4, READ(usr,f) k 
READ(u=r,f,1) k 


In all five forms, the input list may be empty (i.e., blank). 


When the first form is used, the input will be assumed to be from 
a card, tape file labeled READER, or a terminal unit (see time- 


sharing appendix J). 


When the second or third form is used; input will be assumed to be 
from a tape file labeled FILEn, where n is the value of u in the 
input statement, unless otherwise specified by a FILE card (see 


appendix B). 
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When the fourth or fifth form is used, then input must be froma 


random disk file. In this instance, a FILE card must be used. 


In using the fourth or fifth form, the random record number r, 
when evaluated, must have a non-negative integer value (see random 


disk 1/0, 7-51). 


Examples: 


READ 75 
READ(8,BID),((1,J,A(1I,J),J=6,9),I=1,5) 
READ(UNIT ,75)X5Z;A 

READ(14,LISTA) 

READ (6=5*X-3,25,END=101,ERR=77) ARRAY 


For further information; see T/O lists, implied DO loop, action 
labels, FORMAT statement, NAMELIST statement, and tape and disk 
1/0 in this section; FILE cards in appendix B. 


UNFORMATTED INPUT STATEMENTS. 
Unformatted input statements do not have a format specifier assoc- 
iated with them. Input must be from a tape or disk file which has 


been created with an unformatted output statement. 


The general form is: 


. READ(u=r,1) k 


In all four forms, the input list k may be empty (i.e., blank). 
Tf the list k is not specified, than a record is skipped. 


The file used for input must have been previously created with a 


Similar unformatted output statement if a list part is present. 
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When either of the first two forms is used, input must be froma 


tape or serial disk file. 


When either of the last two forms is used; input must be froma 


random disk file (see random disk I/0, page 7-51). 


Examples: 


READ(9) 1,A,J,;B,D 
READ (2*U ,ERR=37) SAM 
READ(UNIT=10,END=99) FEAT ,HAMER 


For further information, see T/o lists, implied DO loop, action 


labels, tape and disk I/O in this section; FILE cards in appendix B. 


OUTPUT STATEMENTS. 
In explanations following, the symbols u, r,;, f; and k have the 


same meanings as outlined under input statements. 


Execution of any of the output statements causes the next record in 
the output file to be created. The information is converted and 
positioned on output as specified by the format specifier f if the 
statement is a formatted output statement. Tf the list is not 
specified, either a record is skipped or data contained in the 


locations in storage occupied by the FORMAT statement is outputted. 


FORMATTED OUTPUT STATEMENTS. 
Formatted output statements are always associated with a FORMAT 


statement, an array containing FORMAT specifications, or a NAMELIST. 


The general form is: 


1. PRINT f,k 
es PUNCH f,k 


3. WRITE(u,f) k 


? 
Ti werre(ver#) | 


In all four forms, the output list k may be empty Ciseas blank). 


If the first form is used, output will be to a line printer file 


labeled PRINT or a terminal unit (see time-sharing appendix J). 


If the second form is used, output will be to a card punch file 


labeled PUNCH. 


When the third form is used; output will be to a tape which will be 
labeled FILEn, where n is the value of u in the output statement, 


unless otherwise specified by a FILE card. 


When the fourth form is used, output should be to a random disk 


file. In this instance, a FILE card must be used. 


In using the fourth form, the random record number r, when evalu- 


ated, must have a non-negative integer value (see random disk I/O, 


page 7-51). 


Examples: 


PRINT 95,V(J),K(4),ZEDD 
PUNCH 55 

WRITE(NO,;A) ROW 
WRITE(3=200-R,68) MATRIX 


For further information, see I/O lists; implied DO loop, FORMAT 
statement, tape and disk I/O, and random disk I/O in section 7; 
FILE cards in appendix B. 


UNFORMATTED OUTPUT STATEMENTS. 
Unformatted output statements do not have a format specifier as- 


sociated with them. Output must be to a tape or disk file. 


2. WRITE(u=r) k 


In both forms, the output list k can't be empty (i.e., blank). See 
page 7-3. 


When the first form is used, output must be to a tape or serial 
disk file. 
775 


When the second form is used, then output must be to a random disk 


file (see random disk I/O, page 7-51). 


Examples: 


WRITE(OUT) (X(K),K=1I,J) ,XX 
WRITE(11=REC) BOOL 


For further information, see T/O lists, implied DO loop; tape and 


disk T/O; and random disk T/O in section 7; FILE cards in appendix B. 


I/O LISTS. 


An input list k in an input statement specifies the variables to 
which values are assigned on input. An output list k specifies the 
variables whose values are transmitted on output. The input and 


output lists are of the same form. 


The general form is: 


|where k, ,k,,...;kK. are variables, array names, 
or implied DO loops, or any combination thereof. 


An element k, of an T/O list may be a simple variable, a subscripted 
variable, an array name without subscripts, or an implied DO loop. 


An I/O list k may consist of any combination of these elements. 


An array name without subscripts in an 1/0 list is equivalent to 
inputting or outputting the entire array in the same order in which 
the elements are stored in memory, i.e.;, column-wise: with the 


left-most subscripts varying most rapidly. 


Examples: 


L,J,A,KP,B(I) 
(A (INDEX) ,LP , INDEX=1,20) ,ZIP,ZAP 


In addition, see implied DO loop and FORMAT statement in section 7. 


IMPLIED DO LOOP. 
An implied DO loop is used as an element in an 1/0 list to specify 


a repeated cycle of list elements. 
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The general form is: 


= 1 7m, 7m. ) 


where L is a list of I/O elements 
which may contain an implied DO 
loop; and i»ny»Ngsn¢3 and their 
counterparts j;Mj;Mo,;my are as 


| defined for the DO statement. | 


Example: 
PRINT 35, ((1;B(1;3)51=1;53) 55=657) 


The output for the above statement would take the following form: 


1 B(1,6) 
2 B(2,6) 
3 B(3;6) 
1 B(1,7) 
2 “BC2.7) 
3 B(3,7) 


where the subscripted B's represent the values of those elements. 


For further information; see DO statement; section 5; T/O list, 


section 7. 


ACTION LABELS. 
The formatted and unformatted input statements can be extended to 
programmatically recover from either End-of-File conditions or non- 


recoverable parity conditions, or both, through use of action 
labels. 


The general form is: 


3 e ERR=n, 9 END mar) 


a, END=n, -BRR=a, 


where ny and no are 
statement labels. 
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When an attempt is made to read a record which has a parity error 
from which the operating system cannot recover, control will be 


transferred to the statement labeled ny: 


When an attempt is made to read an End-of-File, control will be 
transferred to the statement labeled n,.. 


eZ 


The program will be terminated immediately by the operating system 
if either of the above conditions occurs and the associated label 


is not specified in the input statement being executed. 


An End-of-File condition can occur under the following circum- 


stances: 


a. Attempting to read a card with an invalid character in 


column one. 
b. Attempting to read an End-of-File record on tape. 


c. Attempting to read a record from an area of disk which 


has not been written. 


d. Attempting to read a record beyond the furthest record 


written on disk, 


Examples: 


READ(3,END=99) (See page 7-3). 
READ(6=R,35,ERR=70) A 
READ(11,85 ,END=77,ERR=78) J,S,V 


For further information, see input statements and tape and disk 


I/O, section 7. 


AUXILIARY I/O STATEMENTS. 


There are six types of auxiliary I/O statements: 


Ae REWIND statement. 
b. BACKSPACE statement. 


Q 
Ed] 
is 
fo 
— 
t 
by 
i6)) 
ch 
9) 
ck 
@ 
© 
b 
fod 
ch 


Gs CLOSE statement. 
e. LOCK statement. 
ee PURGE statement. 


REWIND STATEMENT. 
The REWIND statement causes the pointer for the specified tape or 
disk file to be reset to the beginning of the file or, in the case 


of multi-file tape, to Beginning-of-Tape. 


REWIND u 


Execution of the REWIND statement causes the file u to be positioned 


The general form is: 


to its initial point. 


If the last reference to the file u was a WRITE statement, then an 
End-of-File record is written prior to positioning the file to its 


initial point. 
The REWIND statement is undefined for other than tape or disk files. 


Examples: 


REWIND 5 


REWIND UNIT 


BACKSPACE STATEMENT 

The BACKSPACE statement causes the file pointer to be returned to the 
preceding program record. For example: If the pointer in file u were 
positioned at record n,; the execution of this statement would position 


the pointer to record (n-1). 


The general form is: 


BACKSPACE u 


If the last reference prior to a BACKSPACE or REWIND instruction to a 
file is a WRITE statement, the file cannot be read beyond the record 
associated with the last WRITE statement. 


c=? 


Examples: 
BACKSPACE 8 
BACKSPACE N 


The execution of this statement has no effect on the program when 


file u is positioned at its initial point. 


ENDFILE STATEMENT. 
The ENDFILE statement causes an End-of-File record to be written on 


the specified file and the file to be closed. 


The general form is: 


ENDFILE u 


The ENDFILE statement is undefined for anything other than a tape 
file. 


When an ENDFILE statement follows a WRITE statement on the same 


file u, then an End-of-File record is written and the tape is 


positioned such that the next record written will (Fo110w)}the End - 


of-File recard 


When an ENDFILE statement follows a READ statement on the same 
file u, then the tape is positioned to the beginning of the (Hext) 
file on the tape. 


When an ENDFILE statement follows a BACKSPACE statement on the same 


file u, then the tape is positioned to the beginning of the file u. 
‘ nc ener 


When an ENDFILE statement follows REWIND or another ENDFILE state- 
ment on the same file u, then the ENDFILE statement is ignored. 


Examples: 


ENDFILE TF1 
ENDFILE 7 


CLOSE STATEMENT. 


The CLOSE statement causes the referenced file to be closed. 
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The general form is: 


| CLOSE u | 


On a card output file, a card containing an ending Label is punched, 


and the card punch is released to the system. 


On a line printer file, the printer is skipped to channel 1, an 
ending label is printed, the printer is again skipped to channel 


1, and the printer is released to the system. 


On a labeled tape output file, a tape mark and ending label are 
written after the last block on tape, and the tape is released to 


the system. 


On an unlabeled tape output file, a tape mark is written after the 


last block on tape; and the tape is released to the system, 


Examples? 
CLOSE 19 


CLOSE N 


LOCK STATEMENT. 


The LOCK statement causes the referenced file to be closed. 


The general form is: 


LOCK u 


If the file is tape, then it is rewound and a system message is 


written to notify the operator to remove the reel and save it. 


If the file is not a disk file, then the unit is made inaccessible 
to the system until the operator resets it manually. 
Examples: 


LOCK NUT 


LOCK 7 
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PURGE STATEMENT. 
The PURGE statement causes the referenced file to be closed, 


purged, and released to the system. 


PURGE u 


The general form is: 


Examples: 


PURGE TAPE 
PURGE 8 
FORMAT STATEMENT. 
The FORMAT statement specifies what type of conversion is to be 


performed on data from external representation to internal machine 


representation or vice-versa. 


The general form is: 


n FORMAT (f) »f,5--+- +f) 
where n is a statement label and 
Piofos--- of, are format specifi- 
cations. 


The FORMAT statement is non-executable. 


The FORMAT statement is always associated with one or more formatted 


input and/or output statements. 


The commas separating the format specifications may be replaced 
with one or more slashes. However, slashes in a FORMAT statement 


are used for record control. 


Each FORMAT specification must agree in type with the corresponding 


variable in the list of the associated I/O statement. 
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When inputting data under a numeric format specification (Ess Bs 
D: G: 0): leading blanks are not significant and imbedded blanks are 


interpreted as zeros. 


Plus signs are optional on input and may be omitted. 


When inputting data under a real format specification (F, E, G; D)s 
a decimal point appearing in the input field overrides the decimal 


point placement specified. 


Any entire blank fields read in under a numeric format specification 
(I: F. E. D.: G) which are outputted with no action being performed 
on them between inputting and outputting will appear in the output 


field as negative zeros. 


In the following FORMAT discussions, the symbols w; d; b; and s will 


have these meanings: 


w - total input or output field width, a positive unsigned 


integer. 
d.- number of decimal places; a non-negative unsigned integer. 
b - blank. 
s - a string of any valid FORTRAN characters. 


INTEGER CONVERSION ON INPUT USING Iw. 
The integer format specification Iw on input causes the value of 
the integer datum in the input field to be assigned to the corres- 


ponding integer variable in the input list. 
The general form is: 


The integer datum must be in the form of an integer constant right- 


justified in the input field. 


Examples: 


Input Field specification Internal Value 
567 T3 +567 
bb-329 16 —~ 329 
-bbbb27 17 =27 
27bbb T5 +27000 
b-bb2 34 16 234 


INTEGER CONVERSION ON OUTPUT USING Iw. 
The integer format specification Iw on output causes the value of 
the corresponding integer variable in the output list to be written 


on the specified output file. 


The general form is: 


The integer is placed right-justified in the output field overa 
field of blanks. 


The plus sign is omitted for positive numbers. 


Tf the size of the integer exceeds the specified field width w, 
the output field will be filled with asterisks. 


Examples: 
Internal Value Specification Output Field 

+23 Ty bb23 

279 T4 b-79 
+67486 T5 67486 
-67486 T5 KKEKKX 
+978 Tl x 

O ue: bbO 


REAL CONVERSION ON INPUT USING Fw.d. 
The real format specification Fw.d on input causes the value of 
the real datum in the input field to be assigned to the corres- 


ponding real variable in the input list. 


The general form is: 


Fw.d 


If there is no decimal point in the input field, then a decimal 
point is inserted d places from the right side. Embedded or 


trailing blank columns are interpreted as zero. 


The field width w must be greater than or equai to the specified 
f£ n 


input datum optionaily may have 


c 
an exponent (see real conversion on input using Ew.d). 


Examples: 


input Fieid Sopecification Internal Value 
36725931 F8.4 +3672.5931 
3672593 F8.4 +3.672593 
~367259 F8.4 - 367259 
-3672.E2 F8.4 ~ 367200 
367259E2 F8.4 +3672.59 
3.672E-1 F8.4 +3672 

367259 F6.6 +0.367259 
b-b3456 ee -34.56 
b2032b F6.0 +20320 


REAL CONVERSION ON OUTPUT USING Fw.d. 
The real format specification Fw.d on output causes the value of 
the corresponding real variable in the output list to be written 


on the specified output file. 


The general form is: 


Fw.d 


The real number is placed, right-justified and rounded to d decimal 


places, in the output field over a field of blanks. 


a 


The plus sign is omitted for positive numbers. 
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If the size of the number exceeds the specified field width w, then the 


output field will be filled with asterisks. A safe rule to use is: 
(w- d)>3 


Examples: 


Internal Value Specification Output Field 
+36.7929 F7.3 b36.793 
+36.7934 F9.3 bbb 36.793 
-0.0316 F6.3 -0.032 
0.0 F6.4 0.0000 
0.0 F6.2 bbO.00 
+579.645 F4.2 XXKK 
+579.645 E6u2 579.65 
-579.645 F6.2 HXHKKK 


REAL CONVERSION ON INPUT USING Ew.d. 
The real format specification Ew.d on input causes the value of the 
real datum in the input field to be assigned to the corresponding real 


variable in the input list. 


The general form is: 


If there is no decimal point in the input field, then a decimal point 
is inserted d places from either the right side of the input field or 


from the E denoting the exponent, if there is one. 


The field width w must be greater than or equal to the specified num- 


ber of decimal places d. 
An input datum may or may not have an exponent. 


Embedded or trailing blank columns are interpreted as zero, and can 
cause problems. When blank columns are located on the right end of a 
field they are interpreted as zero and large errors can occur. For 
example: If the value 4527x108 were punched as 4.527E4b, it would 
be stored internally as 4527x101, 

It is advisable to always punch E-field exponents as far to the right 


as possible. 
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Examples: 


Input Field Specification Internal Value 
bbbbbb2 5046 E11.4 +2. 5046 
bbbbb25.046 E11.4 425.046 
-~bb25046E-3 E1l1.4 -0.0025046 
bb250.46E-3 E11l.4 +0.25046 
b-b25.04678 E1l1l.4 -25.04678 
bbb4.527Elb E1l1.4 +45270000000. 


REAL CONVERSION ON OUTPUT USING Ew.d. 
The real format specification Ew.d on output causes the value of 
the corresponding real variable in the output list to be written 


on the specified output file. 


The general form is: 


Ex 


The real number is placed right-justified and rounded to a d-digit 
mantissa, together with a four-place exponent field; in the outp 
field over a field of blanks. Note that with the Ew.d format 
specification, d takes on a slightly different interpretation 
since no significant digits are written to the left of the decimal 
point in the output field. The plus sign is omitted for positive 
numbers. If the following rule is violated, the output field will 
be filled with asterisks; 


(w -d) > 6 


Tf a scale factor n is used, then it will control the decimal 
normalization between the number part and the exponent part as 


follows: 


a. If n< 0, then | n| zeros will be placed immediately to 
the right of the decimal point with (d-|n| ) significant 


digits following the zeros. 


b. If n> 0, then n significant digits will be placed to the 
left of the decimal point and (d-n+l) significant digits 


wiii be piaced to the right of the decimal point. 


Examples: 


Internal Value Specification Output Field 
+36.7929 E12.5 bb. 36793Eb02 
-36.7929 B11.5 -.36793Eb02 
-36.7924 B10.5 KEKKEKKKKK 
+36.7929 -2PE12.5 bb.00368EbO4 
+36.7929 +2PE12.5 36.79290Eb00 


DOUBLE PRECISTON CONVERSION ON INPUT USING Dw.d. 

The double precision format specification Dw.d on input causes 
the value of the real datum in the output field to be assigned 
to the corresponding variable of type DOUBLE PRECISION in the 

input list. 


The general form is: 


Dw.d 


Aside from the fact that a double precision value is stored in two 
words, and that the exponent in the input field is preceded by a D 
rather than an E; the double precision format specification Dw.d 


behaves in the same manner as Ew.d. 


DOUBLE PRECISION CONVERSION ON OUTPUT USING Dw.d. 
The double precision format specification Dw.d on output causes the 
value of the corresponding double precision variable in the output 


list to be written on the specified output file. 
The general form is: 


Dw.d 


The double precision format specification Dw.d is identical to Ew.d;,; 


with the following exceptions: 


a. The value associated with it is stored in two machine 


words. 


b. The variable name associated with the value must be of 


type DOUBLE PRECISION. 


c. The exponent part of the output contains a D rather than 


an E. 


REAL CONVERSION ON INPUT USING Gw.d. 


The real format specification Gw.d on input is identical to Fw.d. 
The general form is: 


Gw.d 


REAL CONVERSION ON OUTPUT USING Gw.d. 
The real format specification Gw.d on output causes the value of 
the corresponding real variable in the output list to be written 


on the specified output file. 


The general form is: 


[eo 


The representation in the output field is a fraction of the magni- 


tude of the real number being outputted. 


If N is the magnitude of the number being outputted, then table 
7-1 shows how the number will appear in the output field. 


If a scale factor is used, then it will have no effect on output 
conversion unless the magnitude of the number being written is 


outside the range which permits effective use of F conversion. 


Examples: 

Internal Value Specification Output Field 
+10. G12.5 bb10.000 
+1000, G12.5 bb1LOOO.O 
+100000. G12.5 bb. LOOOOEbDO6 
+1000000., G12.5 bb. LOOOOEDO7 
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Table 7-1 


Datum Conversion 


Magnitude of Datum Equivalent Conversion Effected 


O.,1<N<1 F(w-4). d, 4x 
1<N<10 F(w-4). (d-1), 4x 


10 d-1 


LO 


aa 
mor d 


Otherwise 


OCTAL CONVERSION ON INPUT USING Ow. 
The octal format specification Ow on input causes the value of the 
octal datum in the input field to be assigned to the corresponding 


variable in the input list. 


The general form is: 


If the datum is less than 16 octal digits long; then it is right- 
justified and stored in a machine word. The maximum octal constant 
' t : 


which can be read is 3777777777777777. 


Octal constants can be signed or unsigned. The plus sign (+) and 

the ampersand (& ) sign are skipped over and the minus (-) sign causes 
bit 1 of the input element to be complemented with 1. Leading, im- 
bedded, and trailing blanks are treated as zeros. An execution time 
type error is emitted if the sign occurs more than once or occurs 
imbedded within the octal constants, or if the magnitude of the octal 


constant exceeds A3771777 77777777 


Examples: 


Input Field opecification Internal Value 

16 G2 000000000000016 

LOUIE LTC EEL G16 177777777777777 
-16 Z3 200000000000016 
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OCTAL CONVERSION ON OUTPUT USING Ow. 
The octal format specification Ow on output causes the octal value 
of the corresponding variable in the output list to be written 


on the specified output file. 

The general form is: 
| Ow | 
Al 


The octal value is placed right-justified in the output field over 
a field of blanks. 


Examples: 

Internal Value specification Output Field 
0000376754320017 D3 O17 
0000376754320017 610 6754320017 inincalea 
0000376754320017 G16 0000376754320017 


LOGICAL CONVERSION ON INPUT USING Lw. 
The logical format specification Lw on input causes the value of 
the logical datum in the input field to be assigned to the corres- 


ponding variable of type LOGICAL in the input list. 


The general form is: 


The input field width w must be greater than or equal to one. There 
may be leading blanks. Normally, the first character encountered in 
leading bianks is either T or F, for true or 
false, respectively. Any characters following the T or F will be 

ignored. If the first non-blank character is a T,; then the variable 


will be assigned a value of true, otherwise it is false. 


oN 


Examples: 


Input Field Specification Internal Value 
A LL TRUE 
bbF ie FALSE 
bbbTRU L6 TRUE 


LOGICAL CONVERSION ON OUTPUT USING Lw. 
The logical format specification Lw on output causes the logical 
value of the corresponding variable of type LOGICAL in the output 


list to be written on the specified output file. 
The general form is: 


The logical value is placed right-justified in the output field 


over a field of blanks as a T or F, for true or false; respectively. 


Examples: 
Internal Value Specification Output Field 
FALSE L1 F 
FALSE L3 bbF 
TRUE Le bT 


ALPHANUMERIC CONVERSION ON INPUT USING Aw. 
The alphanumeric format specification Aw on input causes the charac- 
ter string of width w in the input field to be assigned to the 


corresponding variable in the input list. 


The general form is: 


The variable may be real or integer. The field width w should 


never exceed six. If it does, then the right-most six characters 


in the string are stored and the rest are ignored. If w is less 


than six, then the string is stored left-justified with (6-w) 


trailing blanks. 


Examples: 
Input Field specification Internal Value 
ABCDEFGHIJK A3 ABCbbb 
ABCDEFGHIJK A6 ABCDEF 
ABCDEFGHIJK All FGHIJK 


ALPHANUMERIC CONVERSION ON OUTPUT USING Aw. 
The alphanumeric format specification Aw on output causes the char-= 
acter string assigned to the corresponding variable in the output 


list to be written on the specified output file. 


The general form is: 


po 


ra 


The string is placed (right} justified in the output field overa 
field of blanks. 


Examples: 
Internal Value Specification Output Field 
ABCbbb A3 ABC 
ABCbbb A5 ABCbb 
ABCbbb AY bbbABCbbb 


INPUTTING A CHARACTER STRING USING wHs. 
The Hollerith fieid specification wHs on input causes the character 
string of width w in the input field to replace the character string 


s of the Hollerith field specification in a FORMAT statement. 


The general form is: 


wHs 
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The Hollerith field specification on input may be used to read in 
page headings which are to be printed on output, but which may 


vary in content from one run to another, 


Example: 
READ 15 
15 FORMAT (2X ;9HDUMMYbbbb ) 
PRINT 15 
11 
Input: 12: Bo 4 56 P89 O-1 (card column) 


Xx YbAbBS AMPLE 


Output: bbAbSAMPLE 


Note that in the printed output, although 2X has been specified, 
only one blank is printed since the first blank is a carriage 


control character (see carriage control, page 7-28). 


OUTPUTTING A CHARACTER STRING USING wHs. 
The Hollerith field specification wHs on output causes the charac- 
ter string s of width w of the Hollerith field in a FORMAT state- 


ment to be written on the specified output file. 


The general form is: 


wHs 
The string s remains unchanged. 
Example: 
PUNCH 
05 FORMAT (12HbBURROUGHSbb ) 
1i1itl 
Output: 1.2. 3> te 5 GB: “7 8 OO 1 2 (card column) 


b BUR RO UG HS DD 
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INPUTTING A CHARACTER STRING USING "s", 
The literal string specification "s" on input is identical in 


operation to the Hollerith field specification wHs. 


The general form is: 


ttot! 


E 


Exampie: 
READ 15 
15 FORMAT(2X,"DUMMYbbbb" ) 
PRINT 15 
1 1 
Input: 12345678901 £(card column) 


XYbADbBSAMPLE 
Output: bbAbSAMPLE 


OUTPUTTING A CHARACTER STRING USING "s". 
The literal string specification "s" on output is identical (except 


for ",!,@) in operation to the Hollerith field specification wHs. 


The general form is: 


SKIPPING CHARACTERS USING nx. 


The format editing specification nX on input or on output will 
cause n characters to be skipped in the respective input or output 


field. 


The general form is: 


. 
EDITING USING Tn. 


The format editing specification Tn is used to transfer data to or 
h 


from a specified position n within a record. The use cf Tn in a 


format list will cause the next item of data transferred in the 
corresponding I/O list to be transferred to or from the position 


indicated by the letter n. 


Example: 


WRITE (6,1) A,B,C 
1 FORMAT (F4.1, T10, F7.2; T25; E12.4) 


In the above example, the data referenced by the variable B will be 
positioned in the tenth position of the record when it is written, 
and the data referenced by the variable C will be positioned in the 


25th position of the record. 


The general form is: 


SCALE FACTOR nP. 
A scale factor is defined for use with the F, E; G; and D format 


specifications, and is of the form: 


where the scale factor n is 
a signed integer constant. 


When FORMAT control is initiated; a scale factor of zero is auto- 
matically established and Applies until a scale factor is encountered 
in the FORMAT statement. Once a scale factor is encountered, it 
applies to all subsequently encountered F,;, E, G; and D conversions 
until another different scale factor or the end of the FORMAT state- 


ment is encountered. 


SCALE FACTOR ON INPUT. 
For F; E,; G; and D format specifications on input; where the input 
datum does not have an exponent, the input datum is multiplied by 


100° where n is the scale factor. For example, the datum 573.19 


read with a format of 2PF6.2 would be stored internally as 5.7319. 
Tf the input datum contains an exponent, the scale factor has no 


effect. 


SCALE FACTOR ON OUTPUT. 

For F, E, and D format specification on output, when the output 
datum does not have an exponent, the output datum is muitiplied by 
10", where n is the scale factor. For example, the number stored 
internally as 5.7319 and written with a format of 2PF6.2 would have 
the external value of 573.19. If the output datum contains an ex- 
ponent, the datum is multiplied by 10" and the exponent is reduced 
by n. Therefore, the value is not changed. For example, the number 
stored internally as 5.7319E+02 and written with a format of 1PE11.3 


would have the external value of 57.319E+01. 


For the G format specification on output, the effect of the scale 
actor is suspended uniess the magnitude of the datum being out- 
putted is outside the range that permits effective use of F con- 
version. If the use of E conversion is required, then the scale 
factor has the same effect as when using the E format specification 


on output. 


For further information, see real conversion on page 7-16 using 


Ew.d. 


FORMAT SPECIFICATION IN AN ARRAY. 

Any of the formatted input/output statements may contain an array 
name in place of a FORMAT statement label. At the time the input/ 
output statement containing the array reference is executed, the 
array must contain the equivalent of a FORMAT statement, with the 
first non-biank character being a left parenthesis. Any charac- 
ters in the array following the final right parenthesis of the 


FORMAT statement in the array are ignored. 


Example: 


DIMENSION FORM (5),INFO(6) 
READ(5,75) FORM 
75  FORMAT(5A6) 


READ(20,FORM) Q,R, (INFO(I),I=1,6) 


Input: (F6.2,3X,E15.8, 613) bbbbbbbbbbb 


CARRIAGE CONTROL. 
When a line printer is used for output, the first character of 
each line of print controls the spacing of the printer carriage. 


The control characters are: 


Character Action 
Blank One space before printing. 
Zero Double space before printing. 
1-9 Skip to channel 1-9 of the 


carriage control tape before 
printing. 


Plus sign No advance before printing. 


Examples: 


25 FORMAT(1HO,E12.6,A5) 


Causes the carriage to double space before printing. 


35 FORMAT (6H+TITLE) 


Provides no carriage advance before printing. 


45 FORMAT (3X, 615) 


Causes the carriage to singie space before printing. 


55 FORMAT(1H1, "TITLE" ) 
Causes the printer to page eject and print TITLE. 


USE OF SLASH (/). 

A slash in a FORMAT statement is used to indicate the end of a 
record. On input, any remaining characters in the current record 
are ignored when a slash is encountered in the FORMAT statement. 
On output, the current record is terminated and any subsequent 


output is placed in the next record. Multiple slashes may be used 


to skip several records on input or create several blank records 


on output. 


REPEAT SPECIFICATIONS. 

Repetition of any format specification except nX, wHs, "s", or 
Tn is accomplished by preceding it with a positive integer con- 
stant called the repeat count. If the I/O list warrants it, the 
specified conversion will be interpreted repetitively up to the 
specified number of times. If a scale factor is included, then 


it must precede the repeat count. 


Repetition of a group of format specifications is accomplished by 
enclosing them within parentheses and preceding the left parenthe- 
sis with a positive integer constant called the group repeat count, 
which indicates the number of times to interpret the enclosed 
groupings. If a group repeat count is not given, then the group 
is repeated until the I/O list is exhausted. Grouping with paren- 


theses may be continued to any desired level. 


Example: 


85 FORMAT(3E16.6,5(F10.5,13,4A2)) 


FORMAT AND I/O LIST INTERACTION. 

The execution of a formatted I/O statement initiates Peatiat control. 
If there is an I/O list, then at least one format specification 
other than wHs, "s", nX, or Tn must exist in the FORMAT statement 


referenced. 


When a formatted input statement is executed, one record is ini- 
tially read. No other records are read unless otherwise specified 
by the FORMAT statement. The I/O list associated with a FORMAT 


statement may not require more data of a record that it contains. 


When a formatted output statement is executed, writing of a new 
record occurs each time the FORMAT statement referenced so speci- 
fies. Terminating execution of a formatted output statement causes 
the current record to be written. <A slash also causes the record 


to be written. 
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Except for the effects of repeat counts, the FORMAT statement is 
interpreted from left to right. 


To each I, F, E, G, D, O, A, or L format specification there corres- 
ponds one element in the I/O list. A list element of type COMPLEX 
is considered, for purposes of 1/0 conversion, as two list elements 
of type REAL. Thus, there must be two format specifications (or a 
format specification preceded by a repeat count) for every list 


element of type COMPLEX. 


There is no corresponding 1/0 list element for any wHs, "s", Tn, 
or nX format specification. The information indicated by the wHs 
and "s" is inputted or outputted directly to or from the FORMAT 


statement. 


If, under format control, the right-most right parenthesis of the 
FORMAT statement is encountered and the I/O list is still not ex- 
hausted, then format control reverts to the last previously encoun- 
tered left parenthesis. If a group repeat count precedes this left 


parenthesis, then it also takes effect. 


If, during execution of a formatted 1/0 statement, the I/O list is 
exhausted but the right-most right parenthesis of the specified 
FORMAT statement has not been encountered, then execution of the 
I/O statement is complete. This action, of itself, has no effect 


on the scale factor. 


NAMELIST STATEMENT. 

The NAMELIST statement associates an I/O list with a unique iden- 
tifier. This identifier may not be used for any other purpose in 
the program unit in which it occurs. Only variable and array iden- 
tifiers may be used as NAMELIST elements. These identifiers may 


not be formal parameters. 


The general form is: 
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b b 


1’ 2? [on e 9 n 
where Nl and N2 are NAMELIST iden- 
tifiers and Apreer say and b b 


a's aa 
are variable or array names. 


NAMELIST/N1/a,,a,,---,a,,/N2/b 


INPUT USING NAMELIST. 

Input using NAMELIST is accomplished by executing a formatted READ 
statement which has as its format specifier f a NAMELIST identi- 
fier which has previously been declared in the same program unit. 


No input list k is allowed in the READ statement. 


The input data file is free format except for the first two charac- 
ters of the first record. The first character is ignored and the 
second must be a dollar sign ($). The NAMELIST identifier desig- 
nated in the associated READ statement must follow the dollar sign, 


with one or more blanks following the NAMELIST identifier. 


Following the NAMELIST identifier and blank(s) are placed, in free 
format, the variables assigned to the NAMELIST and the values which 
are being assigned to them. These may take any one of three forms, 


or any combination thereof: 


ae V=N, where V is a simple or subscripted variable 
assigned to the NAMELIST identifier, and N is the 


value being assigned to the variable V. 


b. B(i) = Ms, M,,,9+++s™_, where B is a previously DIMEN- 
SIONed array of size n, iis an integer constant desig- 
nating an element of the array B (i is less than or equal 
to n), and M.,;+++,;m, are the values being assigned to the 
array elements B(i) through B(n) and are either constants 
or are of the form i*c, where i is a repeat count and c 
is a constant. Values must be assigned to all elements 


of the array from B(i) through B(n). 


ce. A= M,>M,,+++,mM_, where A is a previously DIMENSIONed 


array and M,,M,,-+++,m_ are the values being assigned to 
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the entire array A, and are either constants or are of 
the form i*c, where iis a repeat count and cis a con- 


stant. 


If the first record is other than that specified above, then addi- 
tional records are read until the required record is found or the 


End-of-File is encountered. 


The READ statement will be terminated when a second dollar sign is 
encountered in the data file. Anything following the dollar sign 
within the record is ignored. Trailing blanks are interpreted as 
zeros. An assignment of the form V=E cannot be divided between two 


data cards. That is, V on one card, and E on another. 


Example: 
DIMENSION A(4,4),M(10),N(20) 
NAMELIST/NAMEA/A,D,K,M,N,X/NAMEB/M,N,X 
READ NAMEA 
First input card: L234567 6% «ches (card column) 
b$NAMEA D=7.1,N(4)=2.9,5.7,1.5,X=2.5, 
Second input card: 12345678..... (card column) 


A(2,3)=15.9,M=2,1,3*6,4*74 


OUTPUT USING NAMELIST. 

Output using NAMELIST is accomplished by executing a formatted 
output statement which has as its format specifier f a NAMELIST 
identifier which has previously been declared in the same program 


unit. No output list k is allowed in the output statement. 


Output records produced by using NAMELIST may be read by a READ 
with NAMELIST statement, and are therefore of the same general for- 
mat as that specified for input to a READ with NAMELIST statement. 


Example: 


DIMENSION A(4,4),M(10),N(20) 
NAMELIST/NAMEA/A,D,K,M,N,X/NAMEB/M,N,X 


= s 


WRITE(6,NAMEA ) 
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WRITE(6,NAMEB) 


TAPE AND DISK 1/0. 


Tape and disk file unformatted output statements, BLOCKING and 


Rin g options, serial and random disk I/O information are 


available in this section of the document. 

UNFORMATTED OUTPUT. 

When a tape file is written using unformatted output statements, it 
is formatted in the manner illustrated by figure 7-1. 


LOGICAL RECORD 


First Intermediate 
Je Physical Record Physical Records Last Physical Record 
(R words long) (each R words long) 


A=777778 Denotes first ae Denotes intermediate A=0 Denotes last 
B=0 Physical Record B=0O Physical Records B=77777. Physical Record 
C=R-1 C=R-1 O<C<R-1 


(number of words used in 
final record) 


Figure 7-1. File Format Using Unformatted Output Statements 


NOTE 


Numbers with subscript 8 are octal. 
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In figure 7-1, R represents the number of words per record declared 
by the RECORD option of the FILE card. The logical record size is 

determined by the number of items in the I/O list. A, B, and C are 
partial words that comprise the control, or first word of each phys- 


ical record. 


A= [3:15] 
= [18:15] 
c = [33:15] 


RECORD CONTROL WORDS. Each physical record in a tape file contains 
a control word. The control word is always the first word of each 


record, and is classified into four types. 


a. Type l - 0777771 77777| XXXXX, 


This type of control word indicates that the entire logical 
record follows the control word in the next XXXXX Q words of 
the physical record. 


b. Type 2 - 0777771 00000] XXxxx, 


This control word indicates that the first XXXXX Q words of 
the logical record are contained in the physical record 
associated with the control word. The remainder of the 
logical record is contained in the physical record or 
records that foiiow. 


c. Type 3 - 000000 00000] Xxxxx, 


This control word indicates that the physical record associ- 
ated with it is an intermediate record and contains XXXXX, 
words of the logical record. This means that the first part 
of the logical record is contained in a preceding physical 
record or records, and that the remainder is contained in 


the physical record or records that follow. 
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ds: “Type. 4 = 000000| 77777| XXXXXg 


This control word indicates that the associated physical 


record contains the last XXXXXK o words of the logical record. 


Examples of Unformatted Tape Output. 


The following examples illustrate unformatted tape output. PR indi- 


cates the number of words in a given physical record, and LR the 


Example 1 PR = 10, LR = 5, BLOCKING = 2. 


The tape output for a program writing a five word logical record Cis 


253; 445) four times is illustrated in the following manner. 


BLOCK 1 (20 WORDS) BLOCK 2 (20 WORDS) 
| inaaiciiiaaiae | | eae 
ia 1 if 1 
; 2 


L 


L 


Ri 
ae 


PR 


— 


N 


The block size of a tape file is determined by multiplying the BLOCK- 
ING factor by the physical record length. The block size in example 
1 is 2 x 10 = 20 words. 


(732 


The BLOCKING factor is the number of physical records in a block. 
When the size of the logical record is less than the physical record 
as shown in example 1, then the first LR words after the control word 
of the physical record comprises the logical record. The remaining 


words in the physical record are invalid. 


Example 2 PR = 10, LR = 5, 8, 10, BLOCKING = 2. 


The tape output of a program that writes three variable logical rec- 
ords (1,2,3,4,5), (1,2,...,8), and (1,2,...,10) is illustrated in the 


following manner. 


BLOCK 1 (20 WORDS) BLOCK 2 (20 WORDS) 


0777777777700005. 077777000000001 1, 


1 


2 

3 

ERS | 4 
PR 5 
| 6 
7 

8 

9 
LR, . 


077777777770001 0. Y_ 0000007777700001, 


| 


Note that the control word uses one word of the physical record, and 
that the ten word logical record (12 wteds 10) could not be completely 


contained in the first physical record of block two. 
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Example 3 PR = 10, LR = 5, UNBLOCKED. 


The tape output of a program that writes a five word logical record 
(1,2,3,455) two times to an unblocked tape file is illustrated in the 


following manner. 


BLOCK 1 (10 WORDS) BLOCK 2 (10 WORDS) 
0777777777700005, 


0777777777700005¢ 
T : 


Pe | 


2 
2 3 
4 
§ 


1 
2 
3 
4 
' | 


An unblocked tape file implies, and is implied by a blocking factor 


of one. 


Example 4 PR = 6, LR = 4, BLOCKING = 5. 


The tape output for a program that writes a four word logical record 


Ci (2528) six times is illustrated as the following. 


BLOCK 1 (30 WORDS) BLOCK 2 (30 WORDS) 
0777777777700004, 0777777777700004, 
1 


2 
3 
4 


te 


Les) 


rere 


re 


‘| 


t 
* 
* 
wm 


se ettinn atin atiinpeentin anti atine cae cateate ate ae ta tated 
Ce iamatiieantitestinedtipectineiedie ate tate apa 
ee eiiieatiinesattiientie-atin nati tate ate ate ae eae 
etl eatianeestie etna erties etna attain ate ate a aa ead 
eee catia aie adie adie tate nate ane ate ae 
ete catiieretiretine ete atine ate ate ate ate eae 
ett atl ataeeti aati atin tee et ee rae ae ae 
ete atin eatin atte ate ae ate ate ae 
ee, 
cate natiaeatiie sie ati sate tee ae nae ae ae 
Ceti etl natin ete atin ati ate ate tate a ae 
 titeeattine satiate cine adie sateen tate a 
eet ct ected et tier ae ae eae 
Cane ati satiate tie tate aste ame cae ae tate 
Ct ati atin atin arte ati atta aie ante ame eae tate ete al 
at eesti at sate ate ae ate ae a ae ee 
Ceaetine adtiatineeatineeti ete eae sae aera ed 
ne ca 
et at a ea at eae ti ti eat a na a aed 
Scan ate aie cae nie aaiiae ania aie tae ame tania tate cage nti tal 
ieeatie eatiine same cate atin eatecathe aati “aan satiate acta aad 
Create aie ai ati ete aie ate ia ati na eat ee 
—e eee, 
Cacti ete eet tet teetlietintinel 
sec edie rat eatin eine Tea acta ene eatin cna et eeianetiinee and 


= 


Example 5 PR = 10, LR = 25, BLOCKING = ae 


The tape output for a program that writes a 25 word logical record 


(ee a a a a ee 25) two times is illustrated in the following 
manner. 
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BLOCK 1(20WORDS) siti BLOCK 2 (20 WORDS) BLOCK 3 (20 WORDS) 

} ( 0777770000000011, | ~  F [ 0000007777700007, | F 1 9000000000000011, | 
| | i | | 19 | ae | 
2 | 20 | 11 

3 21 | 12 

LR, 4 tee 22 | LR, 13 
PR 5 23 PR 14 
6 | f 24 15 

| 7 | 25 | 16 
[| | 1 GE (ocrnesonscanconnd mC, 17 | 
eu | ee re a | 18 | 

0000000000000011, 077777000000001 1, |. 0000007777700007, 

10 1 19 

11 2 | on 20 
PR 12 oi 3 | a | 
us 13 | 4 Bal 22 
lea ra Sey oa 
15 6 if 24 

16 7 25 

17 8 ae Re ce ee ee ee Ee 

18 


| 
: 


If the logical record is greater than or equal to the physical 
record, then the first (PR-1) words of the logical record will be 


contained in the first associated physical record. 


Example 6 PR = 10, LR = 25; 


The format of the tape output for a program that writes two 25-word 


logical records (as 25. 35. es 


illustrated as follows. 


BLOCK 1 (10 WORDS) 
077777000000001 1, 
1 


PR 


LR 


Oo wmanNN On SW LY 


BLOCK 2 (10 WORDS) 


0000000000000011, 
10 
| : 
| 
PR 


12 
13 


LR 14 
15 


1 


16 
17 
18 


BLOCK 3 (10 WORDS) 
0000007777700007, 
19 
20 
21 
22 


23 
24 
oe) 


UNBLOCKED. 


;: p25.) to an unblocked file is 


BLOCK 4 (10 WORDS) 
0777770000000011, 
1 


wo ~amanN ND nH FP W LO 


BLOCK 5 (10 WORDS) 
0000000000000011, 
10 


11 


a 2 


12 
13 
14 
15 
16 
17 
18 


BLOCK 6 (10 WORDS) 


0000007777700007., 
L9 
20 
21 
ae 
23 
24 
25 


UNFORMATTED DISK OUTPUT 
The disk is allocated into 30 word segments, and the longest record 


that can be written to disk is 1023 words. 


Efficient use of the disk capability can be achieved by using a 
blocking factor that will either be 30 words (240 characters), or an 


integral multiple thereof. 


The compiler generates syntax errors for disk files when PR is 
greater than 1023 words, or the block size (PR x BLOCKING factor) is 
greater than 1890 words (63 disk segments). 


When writing to disk, each block will start at the beginning of the 


next disk segment. 


The size of the logical record is determined by the number of items 
in the I/O list of the WRITE statement. For example: In the state- 
ment WRITE (6) A, B, C,; D, E where A, B, C, D, E are simple variabies, 


the logical record size is five. 


The following examples illustrate some of the various disk unformatted 
output formats. PR indicates the number of words in a given physical 


record, and LR the number of words in a given logical record. 
Example 1 PR = 10, LR = 5, BLOCKING = 2. 


The disk output for a program writing a five word logical record 


(1, Pe Oe ey 5) three times is illustrated in the following 


manner. 
DISK 
SEGMENT 0} 1) 2] 31415, (iy 2 Bet | | 
i 
es —_— 
PR PR 
BLOCK 
DISK SEGMENT (30 WORDS) 

DISK | | 
SEGMENT 1{_iy 2; 3) 44 5 


T-Al 


It would be more efficient to use a blocking factor of three. 


DISK 


SEGMENT o| 1) 213145 a oe Eom rccs i ts) Preseres i oe ee | 
— LR—4 LR—§+ 
PR PR PR 


BLOCK 


For maximum efficiency let PR=5, and the BLOCKING factor=6. 


The substitution of these values will create six 5-word logical 


records on one disk segment. 


Example 2 PR = 10, LR = 5; 8, 10, BLOCKING = 2, 


A program that writes three logical records (1, 2, 3, 4, 5), 
(1, 25 3s 4, 5s 65 Ts 8) and (15 25 3; 4, 5> 65 7, 8, 9, 10) is 
illustrated in the following manner. 


DISK 
SEGMENT 0 


DISK 
SEGMENT 1} 1 


x = INVALID DATA 


When the disk file is read, both valid and invalid data is pro- 


cessed by the compiler. 


The block size of an unblocked disk file is the same size as the 


physical record; i.e., the blocking factor assumes a value of one. 


If the blocking factor is not specified, and the LR less than or 
equal to the PR, the physical record that contains the logical record 


is written one per block. 
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Example 3 PR = 10, LR = 5, UNBLOCKED. 


The disk output for a program writing a five word logical record 


(1, 2, 3, 4, 5) three times is illustrated in the following 


Manner. 
DISK 
SEGMENT 0 i243 445 
LR —.| 
PR PR PR 
BLOCK BLOCK BLOCK 
DISK | | 
SEGMENT 1 Viet s4 4S | 
DISK 


SEGMENT 2 1,2, 3, 4,5 


NOTE 


Each block starts at a new disk segment. 


The length of a logical record cannot exceed the length of a physical 


record. When this condition exists, the remaining (LR-PR) words of 


the logical record are lost. 


Example 4 PR = 10, LR = 25, BLOCKING = 2. 


The disk output for a program writing a 25 word logical record 


C2, Bb 3S eke. 2H, 25) three times is illustrated in the fol- 


lowing manner. 


DISK 1 ' ; 
SEGMENT 0 1p 27 34a 54 6y 7p By 9) 101 1 234) 8) Oy 78 9 10 | 
* * 
LR LR 
PR PR 
BLOCK 
DISK 
SEGMENT 1 Ly 2p 3p 4p Sp 67 8h 9 110 | 
* 


Each logical record is written to the end of the physical record 
as indicated by the asterisk (*), and records 11 through 25 are 
lost. 


When the blocking factor is not specified, and the LR is greater than 
the PR, the physical record will contain the first PR words of the 
logical record. The size of the physical record is the same as the 
size of the block, and each block starts at the beginning of the next 
disk segment when the files are unblocked. 


Example 5 PR = 10, LR = 25, UNBLOCKED 


The disk output for a program writing an unblocked 25-word 
logical record (1, 2, 3, ... , 24, 25) three times is illus- 
trated in the following manner. 


DISK 
SEGMENT 0 142),3 (41546 ,7 48 49 410 


DISK 
SEGMENT 1 1,2,;3 1,445 4,6;,7,8, 9,10 


DISK 
SEGMENT 2. |i | 2;3 44 {5 1 647 18 49 110 


Example 6 PR = 10, LR = 5, BLOCKING =4 


The disk output for a program that writes a five word logical 


record (1, 2, 3, 4, 5) eight times is illustrated in the 


following manner. 


7-4 


DISK 
SEGMENT 0 1} 2; 3, 445 1,2 1,3;4145 1} 24, 34415 


DISK 
SEGMENT 1 notre a | | | 


SEGMENT 2 112143 [4 [5 1142134415 1,2;3 44145 
DISK 
SEGMENT 3 11243 14 45 


If a blocking factor of six had been specified, six records 


could be contained in two disk segments. 


However, maximum efficiency could be achieved by letting PR=5, 
along with a blocking factor of 6. Using this case, all six 


records could be contained within one disk segment. 


When the block size is 80, each block will use three disk segments, 
and each block will start at the beginning of the next disk segment. 
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Example 7 PR = 40, LR = 20, BLOCKING =2 


The disk output from a program that writes a logical record 


(1, 2, 3, . . . , 20) three times is illustrated in the fol- 


lowing manner. 


DISK 
SEGMENT 0 142434445} 6) 748 49 | 10] 114 12) 13) 14) 15; 16,17) 18) 19 20| 


UR pate a 
PR, —_-———————_———_ 


DISK 

SEGMENT 1 6171849 p10 4114124134 144 15 116417 118 1194 20 
DISK 

SEGMENT 2 


DISK H | | 


SEGMENT 3 142,344,547 647 | 849 JLOJL14 124 13414) 15416) 17418) 19 {20 


Example 8 PR = 40, LR = 20, UNBLOCKED 


The disk output for a program that writes a logical record 
(1, 2, 3, . .. », 19, 20) three times to an unblocked disk file 


is illustrated in the following manner. 
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_DISK 
SEGMENT 0 | 142 13 74,517,647 48,9 ;10y 11 12) 13414 4154 16417 | 18419 520 


DISK 

SEGMENT 1 
ae PR, ——— 
| 


DISK | 


1 
SEGMENT 2 142 43 44 4 Sy 64748 49 10f11 412) 134144154 16) 17) 18) 19 120 i 


DISK 

seomenT3 | 1) 1) 1 1] ; _ | 
—— PR, ee 

DISK 


SEGMENT 4 [1 [2 43 [445 | 64748 [9 s10 411512) 13414115 116 117118] 19 120 


Since the blocking factor is undeclared, the physical record 
size also becomes the block size. In the above example, each 


block requires two disk segments. 


yaar 


BLOCKING. 


The BLOCKING option on the FILE card provides the capability of 


packing more than one record into a physical block. 


There are two advantages in blocking files: 


Faster I/O speeds can be obtained since many records can 
be brought into or out of internal storage in a single 


access, thus giving a faster access time per record. 


More efficient packing of data can be obtained. For 
example, an 80-character record written on disk unblocked 
would waste 160 characters. This is because the smallest 
addressable area on disk is the segment which contains 
240 characters. By specifying three records per block 
(BLOCKING = 3), 100% utilization of disk can be obtained. 
Another example is tape blocking. By writing longer 
blocks, the amount of tape space wasted by inter-record- 


gaps would be reduced. 


For most efficient utilization of disk, the blocking should be 


such that the block size should be 30 words (240 characters) or 


some integer multiple thereof. 


The block size for disk should not exceed 1890 words. 


The blocking of records during WRITE and unblocking during READ is 


handled automatically by the operating system. 
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BUFFERING. 
The FILE card has an option whereby the number of buffers assigned 


: : : : 1 4 3 Pad 4 \ 
to a file can be specified (two are assigned by default). 


The number of buffers that should be specified for a given file 


depends on the characteristics of the file. 


A file from which a record is accessed infrequently should have 


: : 
ecifying mo 


A file that is accessed frequently should have two buffers. While 
data is being processed into or from one buffer, I/0 can be in 


progress on the other buffer. 


A file that is accessed N times between long processing loops should 
have N buffers. Since the operating system always tries to Keep 

the buffers full for input and empty for output, the N buffers could 
be processed without having to wait for any actual T/o. Then, during 
the long processing loops; the operating system can do the required 


actual I/O operations. 


DISK I/O. 
The assignment of a file to disk requires the use of a FILE card 


(see appendix B). 


If the AREA option is specified, the first reference 


sg to 1 
will cause the MCP to set up a directory indicating the amount of 
disk specified. In making the actual allocation of disk, the MCP 
will subdivide the file into 20 areas; each area containing 1/20 
of the file. Actual* allocation of disk space for each area occurs 


only when a WRITE statement references a record in that area. 


If the FILE option card does not specify the AREA option, the first 


reference to the file expects the file to exist on disk. 


To create a permanent file on disk, it is necessary to lock the 


file by either: 
a. Specifying the LOCK and SAVE options on the FILE card, or 


b. Executing a LOCK statement on the specified file before 
the program comes to an end, and specifying the SAVE option 


on the FILE card. 


Each record on disk is addressed by its relative location in the 
file; the first record is record O (zero). The MCP, in order to 
compute an actual disk address from a record address, requires 

that each record be of fixed length. This record length is either 
17 words (by default) or the record size specified in the FILE card. 
Attempting to write or read a logical record where the amount of 
data specified by the list exceeds the amount of data in the record 
will result in program termination. For the situation where a 
logical record is written which is smaller than the record size, the 
contents of that portion of the record left unfilled is undefined. 
Attempting to read this undefined data should be avoided; program 


termination can occur. 


Associated with each file on disk is an End-of-File pointer. Each 
WRITE operation updates this pointer so that its value is always 


that of the highest record written. 


SERIAL DISK I/O. Serial Disk I/0 is selected by specifying the 
SERIAL option on the FILE card. 


The operating system keeps an internal record pointer to control 
serial disk T/o. This pointer is set to -1 initially. Each READ 
or WRITE statement counts the pointer up by 1, then uses it as the 


relative record address to read or write. 
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The random access forms of the READ or WRITE I/O statement can be 
used for a file specified serial (see random disk I/O). When used, 
the internal record pointer is set equal to the address specified 
in the 1/0 statement rather than being counted by 1. Using the 
random access forms of the t/O statement on files specified as 
serial, although allowed, is slower than when the file is specified 


as random. 


The resuits of mixing or alternating serial disk READ and WRITE 
statements without intervening REWINDs are not defined. 

REWIND sets the internal record pointer to -l. 

RANDOM DISK 1/0. Random Disk I/O is selected by specifying RANDOM 
on the FILE card. Associated with random access is a special form 


of file identifier in the READ and WRITE I/O statements as follows: 


where r is the relative address 
of the record to be accessed, 


The rules for the form of r are the same as for an array subscript. 


The record specified by r will be the record accessed. 


The internal record pointer is always set from r in the T/O state- 
ments. If the serial forms of the I/O statements are used with a 
file specified random, the internal record pointer is not changed. 
This results in several consecutive serial I/O statements accessing 


the same record repeatedly. 
Mixing READ and WRITE statements is allowed in any sequence. 
REWIND sets the internal record pointer at zero. 


Examples: 


READ(i=I1....) 
WRITE(6=(A+B-C)... 
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SECTION 8 
SUBPROGRAMS 


GENERAL. 
A subprogram is a program unit, a self-contained and independent 
routine, which may be referenced by the main program and by other 


subprograms. There are three types of subprograms. 


a. FUNCTION subprograms. 
b. SUBROUTINE subprograms. 
c. BLOCK DATA subprograms. 


FUNCTIONS. 

In mathematics, if the value of one quantity is de 
value or values of another quantity, then it is said to be a func- 
tion of the other quantity. The first quantity is called the 
function and the other quantities are called the arguments. For 


example; in 
arctan(x) 
arctan is the function and x is the argument. 


Functions may be divided into three categories: 


ae Statement functions. 
Ds Intrinsic functions. 
Cs External functions, 


STATEMENT FUNCTIONS. 
A statement function is declared within the program unit in which 
it is referenced. It is defined by a single statement similar in 


form to an arithmetic or logical assignment statement. 


The general form is: 


f(x, 9X 


pes ° x )=e 


where f is the statement function name, 
X12Xo00-+9X, are the dummy arguments, 
and e is an expression. 


ea ai ae rn eer | 


The rules for naming a function subprogram are the same as those 
for naming a variable (see section 2). The dummy arguments may 
be simple or subscripted variables. They represent values which 
are passed to the function subprogram and are used in the expression 
e in order to evaluate the function ff. The dummy arguments are 
undefined outside of the statement function and may be redefined 
within the program unit. Together, f and e must conform to the 


rules for arithmetic or logical assignment statements. 


Aside from the dummy arguments, the expression e may contain: 


a. Variables used in the program unit. 
b. Intrinsic function references. 
c. References to previously defined statement functions. 


d. External function references. 


A statement function must be declared before the first executable 


statement. 


A statement function is referenced in the same manner as a FUNCTION 


subprogram is referenced. 


The name of a statement function must not appear in an EXTERNAL 


statement, nor aS a variable name or an array name in the same 


program unit. 


Example: 


DIMENSION A(10) 

LOGICAL STAFUN,Y,Z 

STAFUN(N)=X .LT. SIN(A(N)) 

READ 25,X,Y,(A(IL),I=1,10) 
25 FORMAT(F8.2,L2,10F7.2) 

DO 50 J=1,10 

Z=Y .AND. STAFUN(J) 


DO. os:8- 
INTRINSTC FUNCTIONS. 


The intrinsic functions are those functions made available toa 


FORTRAN object program by the operating system. The names, types; 


and definitions of the intrinsic functions are predefined, so they 


need only be referenced in order to be used. 


An intrinsic function name may be redefined within a program unit. 
However, if it has been redefined, then that intrinsic function 
will no longer be recognized by the compiler, but its identifier 


will be used as it has been redefined. 


Also, the user may redefine the meaning of an intrinsic for an entire 
program by providing a FUNCTION subprogram of the same name. How- 
ever, the type of the function and the number and type of its para- 


meters must be the same as the original intrinsic. 


REAL FUNCTION SIN(Y) 

SIN=COS(Y) 

RETURN 

END 
An intrinsic function is referenced by using it as a primary in an 
arithmetic or logical expression. The actual parameters which 


constitute the parameter list must agree in type; number, and 
order with the specifications in table 8-1, and may be any expres- 
sion of the specified type. (For an explanation of actual para- 
meters, see CALL statement, section 6.) When a real parameter 


is specified, however, an integer parameter may be used. 


Execution of an intrinsic function reference results in the passing 
of the actual parameter values to the corresponding formal parameters 
of the intrinsic function and an evaluation of the intrinsic. The 
resultant value is then assigned to the intrinsic function identifier 


and thereby passed back to the intrinsic function reference. 


Examples: 


TBIG=MAX0(1I,J,K,LEST) 
TANGE=SIN(X+Y) /COS(A-B) 


EXTERNAL FUNCTIONS. 
An external function is a program unit which has as its first state- 


ment a FUNCTION statement. 
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The general form is: 


_ t FUNCTION f(a 


where: 


a. t is either INTEGER, REAL, DOUBLE 
PRECISION, LOGICAL, COMPLEX, or 
empty. 


f is the symbolic name of the 
function being defined. 


Ayre+e 2A, are formal parameters 
which may be either a variable 
name, an array name, a SUBROUTINE 
or FUNCTION name. 


An external function is normally referenced by another program 


unit. 


However, Burroughs FORTRAN permits an external function to 


reference itself, i.e., recurse. 


The construction of external functions is subject to the following 


conditions: 


The function name must be used as a variable within the. 
function subprogram to the left of the replacement operator 
(=) in an assignment statement at least once. Its value 
at the time of execution of any RETURN statement within 


the function subprogram is the value of the function. 


The name of the function must not appear in any non- 
executable statement in the function subprogram, except 


for the FUNCTION statement. 


The symbolic names of the formal parameters may not appear 
in an EQUIVALENCE, COMMON, or DATA statement in the func- 


tion subprogram. 


The function subprogram may define or redefine one or more 
of its parameters to effectively return resuits in addi- 


tion to the value of the function. 


e. The function subprogram may contain any statements ex- 


cept SUBROUTINE, another FUNCTION statement, or BLOCK 


DATA. 

f. The function subprogram must contain at least one RETURN 
statement. 

ge. An END statement must be the iast statement of the sub- 
program body. 


Example: 


FUNCTION EVAL(U.V) 
IF(U .LT. V) GO TO 1 
EVAL=V/U 
RETURN 

1 EVAL=U/V 
RETURN 
END 


REFERENCING EXTERNAL FUNCTIONS. 

An external function is referenced by using it as a primary in an 
arithmetic or logical expression. The actual parameters, which 
constitute the parameter list, must agree in order, number, and 
type with the corresponding formal parameters in the defining pro- 
gram unit. If a formal parameter is real, an integer actual para- 
meter may be used. An actual parameter in an external function 


reference must be one of the following: 


a. A Hollerith constant. 

b. A variable name. 

c. An array element name. 

d. An array name. 

e. An arithmetic or logical expression. 


te The name of a function or subroutine. 


If an actual parameter is a function name (external or intrinsic) 
or a subroutine name, then the corresponding formal parameter 


must be used as a function name or a subroutine name, respectively. 
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If an actual parameter corresponds to a formal parameter that is 
defined or redefined in the referenced subprogram, the actual 
parameter must be a variable name, an array element name, or an 
array name. Execution of an external function reference, as de- 
scribed in the foregoing, results in an association of actual para- 
meter with all appearances of corresponding formal parameters in 
the executable statements of the subprogram, and in an association 
of actual parameters with variable dimensions, if present, in the 
subprogram. Following these associations, execution of the first 


executable statement of the subprogram body is undertaken. 


An actual parameter which is an array element name containing vari- 
ables in the subscript could in every case be replaced by the same 
parameter with a constant subscript containing the same values as 
would be derived by computing the variable subscript just before 


association of parameters takes place. 


If a formal parameter of an external function is an array name, 
the corresponding actual parameter must be an array name or array 


element name. 


Example: 
TOTAL=EVAL(P,X)+CPS(Y) 


SUBROUTINE. 

A subroutine is defined externally to the program unit that refer- 
ences it. <A subroutine defined by a FORTRAN statement headed by a 
SUBROUTINE statement is called a subroutine subprogranm. 


DEFINING SUBROUTINE SUBPROGRAMS. 
The SUBROUTINE statement is one of the forms: 


SUBROUTINE N 


SUBROUTINE N (a,,a5.++-a,) 


The letter N is the symbolic name of 
the subroutine to be defined. 


The a's are formal parameters which may be 
either a variable name, an array name, a 
function or subroutine name, or an asterisk (*). 


The construction of subroutine subprograms is subject to the 


following restrictions: 


a. The symbolic names of the formal parameters may not appear 
in an EQUIVALENCE, COMMON, NAMELIST, or DATA statement in 


the subprogram. 


b. The subroutine subprogram may define or redefine one or 
more of its parameters in order to effectively return 


results. - 


c. The subroutine subprogram may contain any statements ex- 


cept FUNCTION, another SUBROUTINE statement, or BLOCK DATA. 


d. The subroutine subprogram must contain at least one 


RETURN, STOP, or CALL EXIT statement. 
e. An END must be physically the last statement. 


In Burroughs FORTRAN; a subroutine may call itself, i.e., recurse, 


Example: 


SUBROUTINE FALL(T,V,S) 
G=32.172 

S=G*T**2/2 

V=G*T 

RETURN 

END 
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PASSING ARRAY DATA TO A SUBROUTINE. The first subscript of an array 
varries most rapidly, and the last subscript the least rapidly. An 


array A dimensioned 3 x 3 is linearly layed-out as follows: 


A ee Pe Re 


Example 3 


DIMENSION A (3,3) 
DO 10 I=1,3 
DO 10 J=1,3 
K= K+l 
A(I,J) = K 

10 CONTINUE 
M=2 
CALL SUB (A,M) 
STOP 
END 
SUBROUTINE SUB (B,N) 
DIMENSION B (N,N) 
RETURN 
END 


In this example, the main program assigns values to the A array and 
variable M, and then passes the data to the subroutine SUB. The act- 
ual parameters A and M corresponds to the formal parameters B and N of 
the subroutine. Note: The B array is dimensioned 2x2; whereas, A is 


dimensioned 3x3. 


The following is an example of the mapping sequence set-up between the 


four elements of B, and the first four elements of A. 


4 


The mapping is always set-up so that the n elements of the subroutine 


6 6 8 9 


5 


array will correspond to the first n elements of the array passed to 


it in the calling program. 


When an array is passed to a subroutine, the size of the correspond- 
ing subroutine array cannot exceed the size of the array being passed 
by the calling program. If this condition exists an "INVALID INDEX" 


message is printed at the time of program execution. 


NONSTANDARD RETURNS FROM SUBROUTINES. 

If a subroutine contains one or more nonstandard return state- 
ments (has the term RETURN n), the formal parameter list must 
contain one asterisk (*) for each return number. The actual 
parameter list of the referencing program unit must then have a 


dollar sign ($) followed by a label in the corresponding position. 


Example: 
Calling Program Called Program 
— SUBROUTINE XYZ (U,V,*,*) 
CALL XYZ (A,B, $10, $15) IF (EXP) 1,2,3 
DF eed 1 RETURN 
re 2 RETURN 1 
Pere 3 RETURN 2 
aye END 
10 eee 
15 ees 
END 


In the above example, if the value of EXP is negative, control will 
be returned to the referencing program at the statement labeled 5; 
if the value of EXP is zero, control will be returned at label 10; 
and if the vaiue of EXP is positive, controi wiil be returned at 


label 15. 


MULTIPLE ENTRY POINTS INTO A SUBPROGRAM. 

For a normal entry into a subroutine subprogram, a CALL statement 
that refers to the subroutine -is used. A normal entry into a 
FUNCTION subprogram is made by a reference to the function name 

in an arithmetic expression. Entry is made at the first executable 


statement following the SUBROUTINE or FUNCTION statement. 


A subprogram can also be entered by way of a CALL statement ora 
function reference that refers to the name in an ENTRY statement 
in the subprogram. The entry is made at the first executable state- 


ment following the ENTRY statement. 


ENTRY statements are non-executable. Therefore, they do not affect 
control sequencing during normal execution of a subprogram. The 
type, order, and number of parameters need not agree between the 
SUBROUTINE or FUNCTION statement and the ENTRY statement; nor do 
the ENTRY statements have to agree among themselves. However, each 
CALL or function reference must agree in type, order, and number 


with the SUBROUTINE, FUNCTION, or ENTRY statement that it refers to. 


The ENTRY statement in the called subprogram is one of the forms: 


ENTRY N , 


ENTRY N(aj,a9;..-a,) 


where: 


a. N is the symbolic name of an entry point. 


b. The a's are formal parameters which may be 
either a variable name, an array name; a 
subroutine or function name, or an asterisk (*). 


Example: 
Calling Program Called Program 
eis SUBROUTINE SUB(U,V,W,X) 
5 CALL SUB(A,B,C,D) le 

ese 8 10 eee 

10 CALL ENT1 ENTRY ENT1 
ee GO TO 10 

15 CALL ENT2(G,.H) its 


eas ENTRY ENT2(G,H) 


In the above example, execution of statement 5 causes entry ieee: 

SUB, starting with the first executable statement of the subroutine. 
Execution of statements 10 and 15 also causes entry into the called 
program, starting with the first executable statement following the 


ENTRY ENT1 and ENTRY ENT2(G,H) statements respectively. 
The following are additional rules for entry points: 


a. An ENTRY name may appear in an EXTERNAL statement in the 
same manner as a FUNCTION or SUBROUTINE name. 


b. ENTRY statements may appear only in subprograms. 


ec. Entry into a subprogram initializes all references in the 
entire called subprogram from items in the parameter list 


of the CALL or function reference. 


d. If an adjustable array name or any of its variable 
dimensions appear in a parameter list for a FUNCTION, 
SUBROUTINE, or ENTRY statement, that array name and all 
its variable dimensions must appear in that parameter 


list. 


e. If an array is passed as a parameter to a SUBROUTINE or 
FUNCTION and is also used by a section of the program 
entered through an ENTRY statement, then the array name 
must appear in the parameter list of the ENTRY statement. 


i In a FUNCTION subprogram, only the FUNCTION name may be 
used as the variable to carry a result back to the call- 
ing program. The ENTRY name may not be used for this 


purpose. 


g. An ENTRY name defined in a subroutine subprogram, if refer- 
enced, must be referenced by a CALL statement. Similarly, 
an entry defined in a function subprogram, if referenced, 


must be referenced as a function. 


BLOCK DATA. 
Further use of the DATA statement is in the BLOCK DATA subprogram. 


Tt is used to enter data into COMMON blocks; however, the follow- 


ing must be observed: 


a. There may be no executable statements in a BLOCK DATA 
subprogram. The first statement of the subprogram must 


be BLOCK DATA. 


b. The subprogram may contain only Type, EQUIVALENCE, DATA, 
DIMENSION, and COMMON statements. 


c. All elements of a COMMON BLOCK must appear in the COMMON 
statement list even though some do not appear in the DATA 


statement list. 


dad. More than one COMMON block may be initialized by a single 
BLOCK DATA subprogram. 


e. There may be as many BLOCK DATA subprograms as desired 
in a program, but any block identifier may occur in only 


one BLOCK DATA subprogram. 


Example: 


BLOCK DATA 
COMMON /TEST/ K, L, S/ AATWO/ B,C 
DIMENSION C(10) 

DATA, -S/- 14-3657; C7 As 16 .8/ 
END 
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Table 8-1 


Resulting Actions of an Intrinsic Function 


Function Definition 


Absolute Value | a| 


Truncation Sign of a times 
largest integer 
<jap 

Remaindering* a, (mod a,) 


Choosing Largest Value Max (a, sane) 


Choosing Smallest Value 


Float Conversion 
from integer 
to real 

*Note: The functions MOD, AMOD and DMOD 


[a] denotes the integral part of a. 


Number of 
Arguments 


ba 


rw 


Symbolic Type of 
Name Argument 
Fee 


ABS 
TABS 
DABS 
CABS 


AINT 
INT 
IDINT 


AMOD 
MOD 
DMOD 


AMAXO 
AMAX1 
MAXO 
MAX1 
DMAX1 


AMINO 
AMIN1 
MINO 
MIN1L 
DMIN1 


FLOAT 


Real 
Integer 
Double 
Complex 


Real 
Real 
Double 


Real 
Integer 
Double 


Integer 
Real 
Integer 
Real 
Double 


Integer 
Real 
Integer 
Real 
Double 


Integer 


Type of 


Function | 


Real 
Integer 
Double 
Real 


Real 
Integer 
Integer 


Real 
Integer 
Double 


Real 
Real 
Integer 
Integer 
Double 


Real 
Real 
Integer 
Integer 
Double 


Real 


(a, +a.) are defined as a,- [a,/a,]*a,, where 
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Function 


Table 8-1 (cont) 


Resulting Actions of an Intrinsic Function 


eee a 


Number of 


Definition 


Arguments Name 
ETE SED | eee ecasea se sesame eae nie) SSAA 
Fix Conversion | 1 TFIX 
from real 
to integer 
Transfer of sign sign of Qo ea So IGN 
times la | pai 
1 DSTGN 
Positive Difference a,-Min (a, .a,) 2 DIM 
TDIM 
Obtain Most Significant L SNGL 
Part of Double Precision 
Argument 
Express Single Precision 1 DBLE 
Argument in Double 
Precision Form 
Obtain Real Part 1 REAL 
Obtain Imaginary Part 1 AIMAG 
Sreate Complex C =a, + ia, ‘ 2 CMPLX 
somplex Conjugate C =X - iY 1 CONJG 
Exponential e* 1 EXP 
1 DEXP 
1 CEXP 


Symbolic 


Type of 
Argument 


Real 
Integer 
Double 


Real 
Integer 


Double 


Complex 
Complex 
Real 
Complex 
Real 


Double 
Complex 


Type of 


Function 


Integer 


Real 
Integer 
Double 


Real 
Integer 


Real 


Double 


Real 
Real 
Complex 
Complex 
Real 


Double 
Complex 
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Function 


Natural Logarithm 


Common Logarithm 


Trigometric Sine 


Trigometric Cosine 


Arctangent 


Arctangent 


Square Root 


Hyperbolic Tangent 


Trigometric Tangent 


Trigometric Cotangent 


NOTE: 


Where applicable, 


Table 8-1 (cont) 


Definition 


1ogj, (a) 


sin (a) 


cos (a) 


arctan (a) 


arctan (a,/a,) 


(arr 


tanh (a) 
tan (a) 


cot (a) 


Number of 
Arguments 


ae 


1 


Resulting Actions of an Intrinsic Function 


Symbolic 
Name 


ALOG 
DLOG 
CLOG 


ALOG1O 
DLOG10O 


SIN 
DSIN 
CSIN 

COS 
DCOS 
CCOS 


ATAN 
DATAN 


ATAN2 
DATAN2 


SQRT 
DSQRT 
CSQRT 

TANH 

TAN 


COTAN 


Type of 


Argument 


Real 
Double 
Complex 


Real 
Double 


Real 


Double 
Complex 


Real 


Double 
Complex 


Real 
Double 


Real 
Double 


Real 
Double 
Complex 
Real 
Real 


Real 


trigonometric functions must be in radians. 


Type of 
Function 


Real 
Double 
Complex 


Real 
Double 


Real 
Double 
Complex 


Real 
Double 
Complex 


Real 
Double 


Real 
Double 


Real 
Double 
Complex 
Real 
Real 


Real 
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Function 


Arcsine 


Arccosine 


Hyperbolic Sine 


Hyperbolic Co 


Error Function 

Gamma Function 

Log Gamma Function 

47-bit Logical AND 

47-bit Logical OR 

47-bit Logical COMPLEMENT 


47-bit Logical EQUIVALENCE 


Concatenation 


Time 


Table 8-1 (cont) 


Resulting Actions of an Intrinsic Function 


Number of 
Arguments 


Symbolic 
Name 


Type of 
Argument 


Type of 
Function 


Definition 


arcsine (a) Real 


arccosine (a) Real Real 
sinh (a) STNH Real Real 
sine cosh (a) COSH Rea.L Real 
error function (a) ERF Real Real 
gamma (a) GAMMA Real Real 
log gamma (a) ALGAMA Real Real 
AND Real Real 
OR Real Real 
COMPL Real Real 
PHQUIV Real Real 
CONCAT Real Real 
Integer 
a = 0, date in TIME Integer Alpha 
form OYYDDD when 
(right- azO 
adjusted) 
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Function 


Time (cont) 


Table 8-1 (cont) 


Resulting Actions of an Intrinsic Function 


Number of 
Arguments . 


Symbolic 
Name 


Type of 
Argument 


Type of 


Definition Ret oan 


1, time of day 
in sixtieths 
of a second 
(based on 24- 
hour clock) 


when 


a = 2; elapsed 
processor time 
of program 
since its 
start in six- 
tieths of a 
second. 


a = 3, elapsed 2/0 
time of pro- 
gram since its 
start in six- 
tieths of a 
second. 


a = 4, value of 
6-bit machine 
timer. 


APPENDIX A 
GLOSSARY 


ACTUAL PARAMETERS. Those parameters in the parameter list ofa 
subroutine call or function reference. In contrast to FORMAL 


PARAMETERS. 


ALPHANUMERIC. Contraction of alphabetic and numeric, signifying 


the aiphabetic and numeric characters. 
ASSIGNMENT OPERATOR. In FORTRAN, the equal sign (=). 
BCL. An acronym for Burroughs Common Language. 


EXECUTABLE PROGRAM. A program that can be used as a self-contained 
computing procedure. It consists minimally of one main program. 


Tt may consist of one main program and any number of subprograms. 


EXECUTABLE STATEMENT. A non-declarative statement which is ex- 
ecuted at object time. In contrast to NON-EXECUTABLE STATEMENT. 


EXPONENT. That part of a real (floating-point) number which deter- 


mines the decimal point placement in the mantissa. 


EXPRESSION. Any constant, variable, or function reference; or any 


combination of these separated by operators; commas; or parentheses. 


FIXED-POINT. An arithmetic notation in which the decimal point is 
not present and is assumed to be on the extreme right of a number. 


In contrast to FLOATING-POINT. 


FLOATING-POINT. An arithmetic notation in which the position of the 
decimal point does not remain fixed with respect to one end of the 


numerals. In contrast to FIXED=-POINT. 


FORMAL PARAMETERS. Those parameters in the parameter list of a 
subroutine or function declaration. In contrast to ACTUAL PARA- 


METERS. 


MAIN PROGRAM. A set of statements and comments not containing a 
FUNCTION, SUBROUTINE; or BLOCK DATA statement. 


MANTISSA. That part of a real (floating~point ) number which con- 


tains the significant digits. 


MCP. An acronym for the Master Control Program, the executive 


system. 


NON-EXECUTABLE STATEMENT. A declaration which, at compile time, 
provides the compiler with a description of data. It is not ex- 


ecuted at object time. In contrast to EXECUTABLE STATEMENT. 


PRIMARY. An arithmetic expression enclosed in parentheses, a 
constant, a variable reference, an array element reference; ora 


function reference. 
PROGRAM UNIT. Refers to either a main program or subprogram,. 


PRT. An acronym for Program Reference Table. An area in memory 
for the storage of operands, references to arrays; references to 
segments of a program, and references to files. Permits programs 
to be independent of the actual memory locations occupied by data 


and parts of the program. 


REFERENCE. A term used with special meaning to indicate an identi- 


fication of: 


a. A datum, implying that the current value of the datum will 
be made available during the execution of the statement 


containing the reference. 


b. A procedure, implying that the actions specified by the 


procedure will be made available upon reference. 


SPO. An acronym for SuPervisOry Printer, the system console type- 
writer. 
SUBPROGRAM. A set of statements and comments headed by a FUNCTION, 


SUBROUTINE, or BLOCK DATA statement. 
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APPENDIX B 
FTLE CARDS 


FILE cards are optional since ali the parameters used in declaring 


a file have default values. The various I/O statements and their 


default descriptions when a FILE card is not used are listed in 


table B-l. Time-Sharing FORTRAN default conditions are described 


in appendix J. 
Table B-1 


File Default Descriptions 


READ f,k* READER 10 Word Buffer, 


80 Characters 


-READ(u,f) k FILEi 17 Word Buffer, 
READ(u) k (where iis the |132 Characters, 
value of u) (size of logical 
record is un- 
limited) 
WRITE(u,f) k FILEi 17 Word Buffer 
WRITE(u) k (where i is the | 132 Characters, 
value of u) (size of logical 
record is un- 
Limited ) 
PRINT f,k* PRINT 17 Word Buffer, 
132 Characters 
PUNCH f,k* PUNCH 10 Word Buffer, 
80 Characters 
NOTE 


In all cases; 
the multi-file 
name is empty. 


ce 


Alpha 


Binary 


Binary 


Alpha 


Alpha 


Peripheral 


Tape 
Card 


Tape 


Tape 


Line 


Card 


or 
Reader 


Printer 


Punch 


| *FILE cards cannot be used for these I/O statements. | 


FILE CARD FORMAT 


FILE cards are free format, with the exception of card columns 1-6: 


12345 6 (card column) 
F I LEDbb 


where a blank is denoted by b. 


Columns 73 through 80 are used for a sequence number or identifica- 
tion only; and will be ignored by the compiler except when merging 


a card and tape file at compile time, 


Following the two blanks, the following information must be inserted 


in free format: 


N FID 


N = MFID/FID 


where N is an unsigned integer constant representing the logical 
unit number. It is the value of u in READ(u,f)k and WRITE(u,f)k. 
MFID is the multi-file identification, and FID is the file identifi- 
cation. If MFID is not iwetuaed ; then it is assumed to be seven 
zeros. For further information, reference should be made to the 


System Operation Manual. 


The following is a list of options which may be included on the 
FILE card. They may be in free format; but they must come in the 


which they are given below: 


where t is one of the following: 
PRINT 
PRINTER 
READER 
PUNCH 
DISK 
TAPE 
REMOTE 


TAPE is the default option for UNIT. 


b. » UNLABELED 


LABELED is the default option if unlabeled is not specified 
(tape only). 


, ALPHA 
BINARY is the default option if ALPHA is not specified 
(tape only). 


»,oAVE =n 

where n is an unsigned integer whose value cannot exceed 
999. It is the save factor, in days (see System Operation 
Manual). The default save factor is zero. 

, LOCK 


When this option is used, the MCP will close and lock a 
disk file when the program creating it has gone to End- 
of-Job (see tape and disk I/0, section 7). In the case 
of a disk file, if a CLOSE statement or END FILE state- 
ment appears for the designated file, the LOCK will be 


overridden and the file will be released. 


» SERIAL 
, RANDOM 
This option specifies the access mode for disk files only. 


The default option is SERIAL. 


,»,AREA =n 

where n is an unsigned integer constant which denotes the 
amount of area on disk (in number of records) to reserve 
for this file (see tape and disk I/0, section 7). Ifa 
file is to be opened for input this option must not be 


present. 


» BLOCKING = n 
where n is an unsigned integer which represents the num- 
ber of logical records per physical block. The default 


option is unblocked files, i.e., a blocking factor of one. 


»RECORD = n 
where n is an unsigned integer which represents the size 
(in words) of a logical record. The default option is 17 


(see table B-1). 


je , BUFFER =n 
where n is an unsigned integer which represents the num- 
ber of buffers. The default option is 2 (see tape and 
disk I/0, section 7). 


If the FILE option extends across more than one card, then the next 
card must be flagged as a FORTRAN continuation card with a charac- 


ter other than a blank or zero in card column 6. 


In the I/O statements READ(u,f)k and WRITE(u,f)k, if u is not an 
integer constant, then its value at run time must correspond to 


a logical unit number declared on a FILE card. 
If the option 
UNIT = t 


is used to declare the file as a line printer, card punch, or card 
reader, then the remaining default descriptions used for this file 


are designated in table B-l. 


A dollar 
ler that 


APPENDIX C 
DOLLAR SIGN CARDS 


sign card is optional and is used to indicate to the compi- 


certain options are to be used at compile time. The format 


of a dollar sign card is: 


Example: 


$CARD 


$CARD 


$CARD 


Card Column Contents 
HE $ 
2-72 Options in free field format. 
73-80 Card number or blank. 


ae AV Vie se 


Immediately after the MCP control cards used for compila- 
tion and immediately before the first FORTRAN FILE card 
or FORTRAN source or patch card if no FILE cards are used 


(see section 1). 


Anywhere else in the source or patch deck with a proper 
sequence number in order to change options at some point 
in compilation, e.g.;, to list only a part of the compiled 
source program. Dollar sign cards may not; however, be 


interspersed with the continuation cards of a multi-card 


statement. 
Sequence 
Number 
00000100 
A=B+C 00009000 
LIST 00009100 
X=SQRT(Y**2+Z%**2) 00009200 
PAR=TAN(X/A) 00009300 
V=SIN(X+Y-Z) 00012200 
00012300 


Only cards 00009200 through 00012200 will be listed on the file LINE. 


Each dollar sign card causes all previous options to be reset, with 
the exceptions: $REMOTE, $ONSITE, $SEQXEQ, $SEQ, $NOSEQ, and $TIME. 
If no dollar sign card is included with the source deck, then the 


CARD and LIST options are assumed (see appendix ue Te 
The various options available are as follows: 


TAPE or CARD 
ae One of these, but not both, should be the first option on the 


dollar sign card immediately following the dollar sign. 


b. CARD indicates to the compiler that the source program input 


is entirely from the file labeled CARD. 


c. TAPE indicates to the compiler that the source program input 
is from the file named TAPE and labeled FORSYM and that 
change or patch cards may be inputted from the file labeled 
CARD, Tf a change or patch card file is used, then it is 
merged into the source program from the file named TAPE and 
labeled FORSYM as a function of the sequence number in coi- 
umns 73-80. If a listing is obtained, then the source 
statements from the TAPE file will have a T following the 
sequence number, and the source statements being merged from 
the CARD file will have an R following the sequence number 


on the compiled source listing. The merging process uses 


the system alphanumeric collating sequence (see appendix G). 


d. If the first word on a dollar control card is not CARD or 
TAPE, then the dollar control card input mode (either card 
or tape) is set to the mode of the previous dollar control 


card. The initial mode is card. 


LIST 
a. if present, then a compiled source listing of the source 
program will be made on the file LINE, including any change 


or patch cards. 


ae 


SGL or 


Ae 


5 
= 
O 
ry 


% 


PRT 


DEBUGN 


ae 


TRACE 


Ae 


Segment and address information will also be listed with 


the source program. 


SINGLE. 


If present, then a single-spaced compiled source listing of 
the source program will be made on the file line. If LIST is 


also present, the SGL or SINGLE takes precedence. 


If present, a new source tape file labeled FORSYM is 
created which includes all change or patch cards and 


FILE cards; but does not include dollar sign cards. 


If present, then a listing of the source program will be 
made on the file LINE, including any change or patch 
cards, and at the end of each program unit listing; a 
listing of PRT* and stack assignments for each local 


identifier within that program unit will be made. 


At the end of the entire program, PRT assignments for 


all global names will be listed. 


If PRT is specified, then LIST is automatically evoked. 


If present, then the actual machine code emitted by the 
compiler is also listed on the file LINE together with 


octal values of constants and format of PRT entries. 


If DEBUGN is specified, then PRT and LIST are automatically 


evoked. 


If present, then information is listed on the file LINE 
which indicates how the FORTRAN compiler is analyzing the 


syntax of the source program. 


* PRT is an abbreviation for Program Reference Table (see the System 
Operation Manual). 


SEQ f s 
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ae 


TRACE should be used only in extreme cases because of the 


great volume of output produced. 


If TRACE is specified, the LIST, PRT, and DEBUGN options 


are automatically evoked. 


i 

If present, the listing on file LINE and the new source 
program on the file NEWTAPE, labeled FORSYM (if NEW or 
NEW TAPE is specified), will be resequenced. 


The specifications following SEQ have the following in- 


terpretations: 


f - the sequence number of the first card of the 


source program. 


S - any special character; usually plus (+) or 


comma eee 


i - increment. If i=O, or iis not a number, then 


an increment of LOOO is used. 


The SEQ option, if used, must be the last option on the 


dollar sign card. 


If present, will cause the SEQ option to be turned off. 


If the source cards are punched in IBM code and the HOL 
option is not used, then the listing of the source program 
produced by the compiler will be in IBM card codes, e.g.; 
( will be printed as %, = will be printed as #, etc. How- 
ever, the compiler will properly interpret the source 


program and compile it. 


TIME 


CHECK 


a. 


If the source cards are punched in IBM card code and the 
HOL option is used, then all characters will be converted 


to BCL before printing on the file LINE. 


If the source cards are punched in IBM/360 card code, then 
the HOL option must be used to convert the source program 


to BCL. 


The HOL option wiil translate all IBM or IBM/360 cards 

to BCL including strings and Hollerith constants. This 
option also causes the object program produced by the 
compiler to automatically convert into BCL data read with 
an A format specification and data read into Hollerith 


strings. 


The use of the HOL option will slow compilation speed. 
For repeated compilations from large source programs, 

it would be advantageous to use the NEW TAPE option with 
HOL on the first compilation. Thereafter, compilations 
may be made without the HOL option from the generated 


source tape. 


If present and if the LIST option is not present, then the 
source program will not be listed; but at the end of the 
compilation, compilation information will be listed on the 


file LINE. 


If present, the number of sequence errors detected in the 
source file is printed next to the number of syntax errors. 
Also, under the $CHECK option, a sequence error for a source 
record will cause the card image and a warning message to 


be written to the file LINE: 


SEQUENCE ERROR "n" < "pt 
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where n is the sequence number of the card image and p is 
the sequence number of the previous card image. The system 


alphanumeric collating sequence is used (see appendix G). 


VOID n 
a. If present, VOID must be the only option on the dollar 
sign card. This option is used only when merging a CARD 


and TAPE file. 


b. If present, and if n is blank, the record on the TAPE 
file with the same sequence number (in columns 73-80) as 
the $VOID card will be ignored by the compiler, will not 
be listed on the file LINE, and will not be inserted in 
the file NEWTAPE, if the NEW option has been specified 


previously. 


oa If present, and if n is not blank, n must be the sequence 
number of a record existing on the TAPE file Ce in addi- 
tion, the $VOID card must have a sequence number in 
columns 73-80. The records on the TAPE file, starting 
with the record which has the same sequence number as the 
$VOID card (columns 73-80), will be ignored up to but not 
including the record on the TAPE file with the sequence 
number n. These records will be ignored by the compiler, 
not listed on the file LINE, and not inserted in the file 
NEWTAPE, if the NEW option has been specified previously. 


d. If the first word on a dollar control card is not VOID; 
all dollar control card options are set to OFF. Only 
those options invoked by the current dollar control card 


are set to ON. 


NOTE 
See appendix J, Time-Sharing FORTRAN, 


for additional option information. 


APPENDIX D 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGE 


SYNTAX ERROR 

MISSING OPERATOR OR PUNCTUATION 

CONFLICTING COMMON AND/OR EQUIVALENCE ALLOCATION 
MISSING RIGHT PARENTHESIS 

ENTRY STMT TLLEGAL IN MAIN PGM OR BLOCK DATA 
MISSING END STATEMENT 

ARITHMETIC EXPRESSION REQUIRED 

LOGICAL EXPRESSION REQUIRED 

TOO MANY LEFT PARENTHESES 

TOO MANY RIGHT PARENTHESES 

FORMAL PARAMETER ILLEGAL IN COMMON 

FORMAL PARAMETER ILLEGAL IN EQUIVALENCE 

THIS STATEMENT ILLEGAL IN BLOCK DATA SUBPROGRAM 
INFO ARRAY OVERFLOW 

IMPROPER DO NEST 

DO LABEL PREVIOUSLY DEFINED 

UNRECOGNIZED STATEMENT TYPE 

ILLEGAL DO STATEMENT 

FORMAT STATEMENT MUST HAVE LABEL 

UNDEFINED LABEL 

MULTIPLE DEFINITION 

ILLEGAL IDENTIFIER CLASS IN THIS CONTEXT 
UNPATRED QUOTES IN FORMAT 

NOT ENOUGH SUBSCRIPTS 

TOO MANY SUBSCRIPTS 

FUNCTION OR SUBROUTINE PREVIOUSLY DEFINED 
FORMAL PARAMETER MULTIPLY DEFINED IN HEADING 
ILLEGAL USE OF NAMELIST 

NUMBER OF PARAMETERS INCONSISTENT 

CANNOT BRANCH TO FORMAT STATEMENT 


SUBROUTINE OR FUNCTION NOT DEFINE 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


IDENTIFIER ALREADY GIVEN TYPE 
TLLEGAL FORMAT SYNTAX 

INCORRECT USE OF FILE 

INCONSISTENT USE OF IDENTIFIER 

ARRAY IDENTIFIER EXPECTED 

EXPRESSION VALUE REQUIRED 

ILLEGAL FILE CARD SYNTAX 

ILLEGAL CONTROL ELEMENT 

DECLARATION MUST PRECEDE FIRST REFERENCE 
INCONSISTENT USE OF LABEL AS PARAMETER 

NO. OF PARAMS. DISAGREES WITH PREV. REFERENCE 
ILLEGAL USE OF FORMAL PARAMETER 

ERROR IN HOLLERITH LITERAL CHARACTER COUNT 
ILLEGAL USE OF FORMAL PARAMETER 

TOO MANY SEGMENTS IN SOURCE PROGRAM 

TOO MANY PRT ASSIGNMENTS IN SOURCE PROGRAM 

LAST BLOCK DECLARATION HAD LESS THAN 1024 WORDS 
ILLEGAL I/O LIST ELEMENT 

LEFT SIDE MUST BE SIMPLE OR SUBSCRIPTED VARIABLE 
VARIABLE EXPECTED 

ILLEGAL USE OF .OR. 

ILLEGAL USE OF .AND. 

ILLEGAL USE OF .NOT. 

ILLEGAL USE OF RELATIONAL OPERATOR 

TLLEGAL MIXED TYPES 

ILLEGAL EXPRESSION STRUCTURE 

TLLEGAL PARAMETER 

RECORD BLOCK GREATER THAN 1023 

TOO MANY OPTIONAL FILES 

FILE CARDS MUST PRECEDE SOURCE DECK 


ERROR 


NUMBER 


062 
063 
064 
065 
066 
067 
068 
069 
070 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


UNDEFINED FORMAT NUMBER 

ILLEGAL EXPONENT IN CONSTANT 

ITLLEGAL CONSTANT IN DATA STATEMENT 

MAIN PROGRAM MISSING 

PARAMETER MUST BE ARRAY IDENTIFIER 

PARAMETER MUST BE EXPRESSION 

PARAMETER MUST BE LABEL 

PARAMETER MUST BE FUNCTION IDENTIFIER 
PARAMETER MUST BE FUNCTION OR SUBROUTINE ID 
PARAMETER MUST BE SUBROUTINE IDENTIFIER 
PARAMETER MUST BE ARRAY IDENTIFIER OR EXPRESSION 
ARITHMETIC - LOGICAL CONFLICT ON STORE 

ARRAYTD MUST BE SUBSCRIPTED IN THIS CONTEXT 
MORE THAN ONE MAIN PROGRAM 

ONLY COMMON ELEMENTS PERMITTED 

TOO MANY FILES 

FORMAT OR NAMELIST TOO LONG 

FORMAL PARAMETER MUST BE ARRAY IDENTIFIER 
FORMAL PARAMETER MUST BE SIMPLE VARIABLE 
FORMAL PARAMETER MUST BE FUNCTION IDENTIFIER 
FORMAL PARAMETER MUST BE SUBROUTINE IDENTIFIER 
FORMAL PARAMETER MUST BE FUNCTION OR SUBROUTINE 
DO OR IMPLIED DO INDEX MUST BE INTEGER OR REAL 
ILLEGAL COMPLEX CONSTANT 

ILLEGAL MIXED TYPE STORE 

CONSTANT EXCEEDS HARDWARE LIMITS 

PARAMETER TYPE CONFLICTS WITH PREVIOUS USE 
COMPLEX EXPRESSION ILLEGAL IN IF STATEMENT 
COMPLEX EXPRESSION ILLEGAL IN RELATION 

TOO MANY FORMATS REFERENCED BUT NOT YET FOUND 
VARTABLE ARRAY BOUND MUST BE FORMAL VARTABLE 


ERROR 
NUMBER 


093 
O94 
095 
096 
097 
098 
O99 
100 
101 
102 
103 
104 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


ARRAY BOUND MUST HAVE INTEGER OR REAL TYPE 
COMMA OR RIGHT PARENTHESIS EXPECTED 

ARRAY ALREADY GIVEN BOUNDS 

ONLY FORMAL ARRAYS MUST BE GIVEN VARIABLE BOUNDS 
MISSING LEFT PARENTHESIS IN IMPLIED DO 
SUBSCRIPT MUST BE INTEGER OR REAL 

ARRAY SIZE CANNOT EXCEED 32767 WORDS 

COMMON OR EQUIV BLOCK CANNOT EXCEED 32767 WORDS 
THIS STATEMENT ILLEGAL IN LOGICAL IF 

REAL OR INTEGER TYPE REQUIRED 

ARRAY BOUND INFORMATION REQUIRED 

REPLACEMENT OPERATOR EXPECTED 

IDENTIFIER EXPECTED 

LEFT PARENTHESIS EXPECTED 

PORMAL PARAMETER 

RIGHT PARENTHESIS EXPECTED 

STATEMENT NUMBER EXPECTED 

SLASH EXPECTED 

ENTRY STATEMENT CANNOT START PROGRAM UNIT 
ARRAY MUST BE DIMENSIONED PRIOR TO EQUIV STMT 
INTEGER CONSTANT EXPECTED 

COMMA EXPECTED 

SLASH OR END OF STATEMENT EXPECTED 

FORMAT, ARRAY OR NAMELIST EXPECTED 

END OF STATEMENT EXPECTED 

IO STATEMENT WITH NAMELIST CANNOT HAVE IO LIST 
COMMA OR END OF STATEMENT EXPECTED 

STRING TOO LONG 

MISSING QUOTE AT END OF STRING 

ILLEGAL ARRAY BOUND 


ERROR 


NUMBER 


124 
L25 
126 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


TOO MANY COMMON OR EQUIVALENCE ELEMENTS 
ASTERISK EXPECTED 

COMMA OR SLASH EXPECTED 

DATA SET TOO LARGE 

TOO MANY ENTRY STATEMENTS IN THIS SUBPROGRAM 
DECIMAL WIDTH EXCEEDS FIELD WIDTH 
UNSPECIFIED FIELD WIDTH 

ILLEGAL FORMAT CHARACTER 

UNSPECIFIED DECIMAL FIELD 

DECIMAL FIELD ILLEGAL FOR THIS SPECIFIER 

t 


LLEGAL LABEL 


UNDEFINED NAMELIST 

MULTIPLY DEFINED ACTION LABELS 

TOO MANY NESTED DO STATEMENTS 

STMT FUNCTION ID AND EXPRESSION DISAGREE IN TYPE 
ILLEGAL USE OF STATEMENT FUNCTION 

UNRECOGNIZED CONSTRUCT 

RETURN, STOP OR CALL EXIT REQUIRED IN SUBPROGRAM 
FORMAT NUMBER USED PREVIOUSLY AS LABEL 

LABEL USED PREVIOUSLY AS FORMAT NUMBER 
NON-STANDARD RETURN REQUIRES LABEL PARAMETERS 
DOUBLE OR COMPLEX REQUIRES EVEN OFFSET 

FORMAT PARAMETER ILLEGAL IN DATA STATEMENT 

TOO MANY LOCAL VARIABLES IN SOURCE PROGRAM 

A TSS SOURCE LINE MUST HAVE LESS THAN 67 COL 

A TSS HOL OR QUOTED STRING MUST BE ON 1 LINE 
THIS CONSTRUCT IS ILLEGAL IN TSS FORTRAN 

ILLEGAL FILE CARD PARAMETER VALUE 


SEQUENCE ERROR "n" < "p", 
where n is the sequence number of the card image and 
p is the sequence number of the previous card image. 
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APPENDIX E 
OBJECT TIME ERROR TERMINATION MESSAGES 


The following object time error termination messages may be gen- 


erated by FORTRAN compiled programs: 
ARG .GT. MAX f (where f is CSIN or CCOS) 
Imaginary component exceeds 158. 


DATA STMT ERR 


a. Too much or too little data for list. 
b. Complex, doub t element must correspond 


with complex, double, 
DIV BY ZERO {job specifier), (terminal reference) 


An object program performed a Divide operation using a zero 


denominator; processing of the subject program was discontinued. 
(job specifier) = (mix index) DS-ED 


Processing of an object program was discontinued before 


End-of-Job; the EOJ option was set. 
(compiler name) / (program identifier) = (mix index) DS-ED 


Compilation was discontinued before the compiler reached 


End-of-Job; the TYPE EOJ option was set. 


EOF NO LABEL (file designator) : (job specifier), (terminal 


An object program has reached the end of the designated file 
and has not specified what is to be done; processing of the 


program was discontinued. 


EXPON OVRFLW (job specifier), (terminal reference) 


An object program has performed an operation which caused an 
exponent overflow to occur; processing of the program was 


discontinued. 
FLAG BIT (job specifier), (terminal reference) 


An object program has performed an operation which caused a 
word with a flag bit of 1 to be accessed as if it were an 


operand; processing of the program was discontinued. 


FRMT ERROR 


a. Illegal character in format. 
b. Unrecognizable format specification. 
c. Required numeric field is not numeric. 


d. Field width greater than 63. 


e. Format specifies record longer than buffer. 
INTGR OVRFLW {job specifier), (terminal reference) 


An object program performed an operation which caused an in- 


teger overflow to occur; processing of the program was discon- 


tinued. 
INVALD ADRSS «job specifier), {terminal reference) 


An object program performed an operation which addressed a 
memory location in an absent memory module or an address less 


than 00512; processing of the program was discontinued. 
INVALID ARG CONCAT 

See appendix H. 
INVALID EOJ 


A STOP, CALL EXIT, or transfer of control statement was miss- 


ing from the mainline program, and an attempt was made to exe- 


LIST SIZE ERROR 


The number of elements in the list of a READ statement exceeds 


the number of data items in the logical record. 
NEGATIVE BASE XTOL 

A**B, where A is negative and B is not an integer. 
NEGTV ARGMNT LN {program specifier) (terminal reference ) 


A negative argument has been passed to the intrinsic which 


computes the natural logarithm. 
NEGTV ARGMNT SQRT (program specifier) (terminal reference) 

A negative argument has been passed to the SQRT intrinsic. 
NMLST ERR 


This error message can be generated during input only. 


a. Illegal subscript on data card. 
b. Too many or too few subscripts. 
c. Jllegal character encountered. 
d. = missing. 


» or * missing after a constant. 


f. Repeat count not an integer constant. 
OPRTR DS-ED {job specifier), (terminal reference ) 


The system operator caused processing of a program to be dis- 


continued through use of a DS message. 


SELECT ERROR (file designator) : {job specifier), (terminal 


reference) 


An object program performed an invalid operation on the 
designated file, e.g., rewinding a card reader. Processing of 


the program was discontinued. 


STACK OVRFLW (job specifier), (terminal reference) 


The operations performed by an object program have caused its 
stack to overflow its limit; processing of the program has 


been discontinued. 
TYPE ERR 


a. Exponent part in data contains non-digit after D, E; +t; 


or - (input only). 


b. The data read in using an I specification in a FORMAT 


statement is either: 


1) Greater than the maximum integer allowed (549755813887). 
2) Double, real, or alpha. 


c. The list element using a D specification in a FORMAT state- 


ment is not double precision (output only). 


d. The list element using an E; F; or G specification ina 
FORMAT statement is logical; integer, or double precision 


(output only). 


e. The list element using an L specification in a FORMAT 


statement is not logical (output only). 
ZERO ARGMNT LN (program specifier) (terminal reference) 


An argument of zero has been passed to the intrinsic which 


computes the natural logarithm. 
ZERO MODULUS DMOD 

DMOD(A,B), where B = O. 
ZIP ERROR - IGNORED 


This message is typed if a program performs a generalized ZIP 


statement, but provides control information containing an 


error. Occurrence of this message signifies that the error 
was present and that all control information following and 


including the error was ignored. 


NOTE 


For further information, refer to the 


System Operation Manual. 
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BURROUGHS VERSUS USASI FORTRAN; 
EXTENSIONS AND DIFFERENCES 


Those extensions and differences listed below are based on a com- 
parison of Burroughs FORTRAN and USASI FORTRAN, as specified in the 
document ASA X3.9-1966. 


EXTENSIONS PERMITTED IN BURROUGHS FORTRAN. 


The following extensions are permitted in Burroughs FORTRAN. 


a. More than one statement per card is allowed. 
b. The character set includes the quote sign ‘Gor 
c. The relational operators <, <, 4; >, > are allowed in 


place of their FORTRAN mnemonics. 
d. Hollerith constants may be used in assignment statements. 


e. Theoretically, there is no limit to the number of dimen- 


sions which can be declared for an array. 


f. A subscript may be any integer or real arithmetic expres- 


sion. 


g. In the statement: 
GO TO i,(k,>k,,...sk,) 
i may be an integer or real variable. 
h. In the statement: 
GO TO(K, sk, -+-sk,) +4 


i may be an integer or real arithmetic expression. 


lit In the statement: 


IF(l.e.) s 
s may be any executable statement except a DO statement. 
j- The terminal statement of a DO loop may be any executable 


statement, with any implications involved assumed to be 


understood by the programmer. 


In the statement: 


DO m Sr ey a 


i may be an integer or real simple variable. 


n,n ,:n, may be integer or real arithmetic expressions. 


hes mee 


ny and ne, do not have to be greater than zero. 


» and n, may be redefined within the range of the 
2 3 


DO statement; with any implications involved assumed to be 


i oN, nN 
al 


understood by the programmer. 
CLOSE u; LOCK u; PURGE u. 


In I/O and AUXILIARY I/O statements, u may be an arith- 


metic expression. 
NAMELIST and NAMELIST I/O. 
READ f,k; PUNCH f,k; PRINT fk. 


The intrinsics: TAN, COTAN, ARSIN, ARCOS, SINH, COSH, ERF, 


GAMMA, ALGAMA, AND, OR, COMPL; EQUIV; CONCAT, TIME; DIV; MOD. 


Random disk I/O. 

Action labels. 

Non-standard returns from subroutines. 
Multiple entry points to subprograms. 


Each of the two components of a complex constant may be 


either real or integer. 
Hollerith constants and literals may be enclosed in quotes. 
The format specifications Ow and Tn. 


The ability to have a subroutine recurse (call itself). 


y. Labeled common blocks do not need to be the same length in 


all subprograms. 


Z. Variables can be preassigned values in both labeled common 


blocks and the unlabeled common region through the use of the 


BLOCK DATA subprogram. 


DIFFERENCE FROM USASI FORTRAN. 
In the statements STOP n and PAUSE n,; n is blank or an integer 


constant of up to six digits. 


APPENDIX G 
COLLATING SEQUENCE 


CODES 


- INTERNAL CODE BCL CODE CARD CODE 
BA 


Eco 


CHAR. OCTAL 
CODE 


MO1 


01 


Blank 


1010 


01 


8-5 
8-6 


12 


12 


1101 
1110 


WI 


35 
36 


1101 
T10 


W 


12 


W 


1100 


10 1011 VW 8-3 
10 


52 


1010 


1011 


53 
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APPENDIC G (cont) 


COLLATING SEQUENCE 


CARD CODE 


BCL CODE | __ 


uw 
a 
O 
U 
aol 
ud 
= 
Z 


x 7 “uw FS ZOa Co a WHF D> = KX & N 


| : ~ 
one coe NO YT YH CO KR DO OH rN OO FT HW DO NR DW & 
co) 

SoS sees S 2 S= 6 6e Se Ss Se e6 

SS s5-c 2] = ss =sSs 58 S2EB8 

= S8SSs 565 S22 -S8S8 E5552 2 

N O& 9) iw +N Sy, Oo 
$s YS Ieee BSE ~ S333 833RRE 


C100 
0101 
0110 
0111 

000 
1001 


00 
00 
00 
00 
00 
00 


64 
05 
06 
07 
10 
8 


0110 
0111 

000 
1001 


APPENDIX H 
BIT-MANTPULATION INTRINSICS 


The FORTRAN compiler provides five intrinsics for use in bit 
manipulation and masking. It is assumed that the programmer who 
makes use of these intrinsics has a prior working knowledge of the 
system. All five of these intrinsics permit access to all but the 


left-most bit, bit zero, of a word. 


AND. 
This intrinsic logically ANDs bit numbers 1 through 47 of its two 


arguments. The arguments remain unchanged. 


The general form is: 


Examples: 


A subscript of 8 indicates an octal number. 
Y=AND(S.,T) 


S) T g 
387777777777777778 Tittitiiiitiiiii, dittititititilit, 


1234567023456701. 3210765432107654, 1210565022006600, 


OR. 
This intrinsic logically ORs bit numbers 1 through 47 of its two 


arguments. The arguments remain unchanged. 


The general form is: 


OR(A,B) 
where A and B are real arithmetic expressions. 


Examples: 


A subscript of 8 indicates an octal number. 
Y=OR(S,T) 


5 T YX 
B777777 7777777772 «= LALALTLAIIIIIIQ 3777777777777777 8 
1234567012345670. 3210765432107654, 3234767432347674, 


COMPLEMENT. 
This intrinsic returns the logical COMPLEMENT of its argument. 


argument remains unchanged. 


The general form is: 


COMPL (A) 
where A is an arithmetic expression. 


Examples: 


A subscript of 8 indicates an octal number. 
Y=COMPL(S) 


S iy: 
BTTIVTITATT IT 17 71717 9000000000000000, 
234567012345670, 2543210765432107. 


= 


EQUIVALENCE. 
This intrinsic logically EQUIVALENCEs its two arguments. The 


arguments remain unchanged. 


The general form is: 


are real aritnmetic expressions. 


The 


Examples: 


S) - Y 


BULTTTTAT TAI Tg dititiiiiiiiiiit, diiiiiitiiiiiiit, 


1234567012345670,  3210765432107654, 1753575357535753¢ 


CONCAT. 
The FORTRAN intrinsic CONCAT provides general bit-wise partial-word 
manipulation. CONCAT is a REAL FUNCTION of the form: 


CONCAT (A,B,S1,S2,N) 
where: 
a. A and B are integer or real arithmetic expressions; 
b. Sl, S52, and N are integer arithmetic expressions; 


CG - Si Os 
Gs “S22 Oe 
e. N > 03 
fF. Sl +N 
ge. S52 +N 


< 48; 
< 48. 
If any one of conditions (c) through (g) is not true, the object 
program will be discontinued with an INVALID ARG CONCAT message. 


When this function is called, first bit S2 of B is transferred to 
bit Sl of A, then bit S2 + 1 of B is transferred to bit S1 +1 of A, 
and so forth, until N bits have been transferred. In other words; 
starting with bit S52 of B and moving to the right, each successive 
bit is transferred to A, starting with bit Sl of A; until N bits 
have been transferred. A; B; Sl. S2; and N remain unchanged after 
the operation unless they are to the left of the replacement 


operator (=) in the statement referencing CONCAT. 


Although there are 48 bits in a word; numbered O through 47, bit 


number O cannot be accessed by using CONCAT. 


Example 1: 


IWORD=64 

JWORD=1 

IBIT=46 

JBIT=47 

N=1 

X=CONCAT (IWORD ,JWORD ,IBIT ,JBIT ,N) 


DATA IWORD,JWORD,IBIT ,JBIT ,N/Y777 ,G@1111 539,36 ,6/ 


JWORD=CONCAT (IWORD , JWORD , IBIT,JBIT ,N) 


bat: (0: 23 26. 9°12 -'5 16 21 24 27-30 39 36 3? 42 45 


IWORD 


JWORD 


TEIATTDT 


Example 3: 


KOF=CONCAT (0,1750,24,36,12) 


Example 4: 
INTEGER BIT 
A=24.,0E+0 


BIT=42 
A=CONCAT(A,12,38,BIT;6) 


A 
(before) 


A 
(after) 


bit 


bit 


0 3 6 912 15 18 21 24 27 30 33 36 39 42 45 


cos 6.9: 12 15, 13° 21. Due 8 
| eee ee eee 
aa Sas anaes Kee 
Ff ttt} tt tt te LL Kx 


=n) 


APPENDIX I 
PRT CONTENTS OF A FORTRAN OBJECT PROGRAM 


+ O EEEEEEEE 
1 Used by .LABEL. 
2 500000000 
3 FPB 
4 SD 
5 BC 
6 AIT 
7 MSCW 
10 INCW 
11 COM/PRL 
12 R + 0, Stack 
13 OWNARRAY description 
14 ALGOL WRITE 
15 ALGOL READ 
16 ALGOL FILE CONTROL 
17 0 
20 BLOCKCTR 
21 JUNK 
22 BASENSIZE 
Pag LISTRTN 
2h CLASN 
25 HOLTOG 
26 Powers of Ten 
ae 21 word ARRAY for any formatted 
output and for use by ZIP 
30 ERR 
31 SQRT 
32 ARSIN 
33 EXP 
34 SIN 
35 ALOG 
36 TAN 
37 ATAN 
ho GAMMA 
AL DATAN 
2 DCOS 
43 DSIN 
Hy ATAN2 
AS CABS 
46 DMOD 
Ay DEXP 


50 DSQRT 


APPENDIX J 
TIME-SHARING FORTRAN 


This appendix describes capabilities of FORTRAN compilers equipped 


for time-sharing. 
For Source Programs compiled/executed from the card reader: 


$TSSEDIT Option. 

This option causes the compiler to print diagnostic messages when- 
ever a source statement contains a construct(s) which would elicit 
a syntax error if the source statement were compiled from the term- 


inal. These constructs are: 


Ae The PAUSE statement. 


b. Formal subprograms. 
c. Hollerith or quoted strings extended from one line to 
another. 


Also, the ZIP construct is not reserved in Time-~Sharing FORTRAN. 


If the $NEW TAPE option accompanies the $TSSEDIT option, the format 
of the new symbolic file will be the "REMOTE FREE FIELD" format 

(see page J-4). This Source File Editing option, when used with a 
disk file label-equate, allows the user to automatically prepare a 


card or tape source program or subprogram for remote terminal usage. 


$SEQXEQ Option. 

A program compiled under this option will cause Run-Time terminating 
errors (asses Div by Zero, Invalid Index) to reference the sequence 
number of the source line containing the terminating construct, in- 
stead of its segment/address. Note that this option has meaning only 


if it precedes the first executable statement. It may not be reset. 


File Unit REMOTE. 
See page J#2 for a description of the File Unit REMOTE. 


APPENDIX J (cont) 


If in an object program an I/O statement using a REMOTE File Unit is 
executed, the program will be DR-ED with a DCTU NOT ASSIGNED message. 
The REMOTE Unit designation has legitimate meaning only for programs 
executed from the terminal. (Of course, the REMOTE unit designation 
may be used in source programs compiled to the library from a card 


reader.) 
For Source Programs compiled/executed from the terminal: 


$TSSEDIT Option. 

This option causes the compiler to consider the format of the 

source file to be the ordinary restricted field format. The option 
is treated as any other $OPTION, and must be renewed on each $ 
Control Card (if renewal is desired). This option may be thought of 
as TURNING OFF the Remote Free-Field format. Note, Howesens that 


the source line may not exceed 66 columns. 


$ERRMES Option. 

Ordinarily; compilation syntax errors elicit the message "ERR#nnn @ 
mmmmmmumin : nnnnnn", where nnn is the error number, mmmmmmmm is the 
line number (see $SEQXEQ Option, page J=1); the nnnnnn is the erro- 
neous construct; use of this option will cause the compiler to 


print a description of the error next to nnnnnn. 


$LIST Option. 

This is the familiar $LIST option. However, unlike card/tape input 
compilations, this option is initially set to OFF when compiling from 
a terminal. Use of the option from a terminal provides a line printer 
listing of the compilation, and each listed line of terminal file will 


be flagged with a D in column 82. 


File Unit REMOTE. 

Use in a source program of a file card containing UNIT=REMOTE will 
cause relevant I/O statements to reference the terminal from which the 
source program was compiled and/or executed. No buffer or blocking 


information is required and, if provided, it will be ignored, 


APPENDIX J (cont) 


New Meaning for the PRINT Statement and the READ Statement Without 
an Input Unit. 


Ordinarily, the PRINT statement references the line printer, and the 
READ statement without a unit designator references a file labeled 
READER. In Time-Sharing FORTRAN, however; 


from the terminal will by default have their PRINT and READ state- 


source programs compiled 


ments reference the terminal from which the associated object program 


_ 7 


is executed. if this effect is undesired, use of the new option 
SONSITE at compile time restores the statement references to their 


ordinary meaning. 


Use of the new option $REMOTE causes source programs compiled from 
the card reader to have their PRINT and READ statements reference 


the terminal from which the associated object program is executed. 


Note that using $REMOTE from the terminal merely re-initiates the 


(unordinary) default file references, and that using $ONSITE from 


the card reader merely re-initiates 


Also, note that these two new $ options 


precede the first executable statement, 


ordinary file reference. 


have meaning only if they 


and they will be ignored if 


‘placed anywhere else. 


General Observations. 


FORTRAN programs written, compiled, and executed from the terminal 


will normally: 


a. Be written in REMOTE FREE-FIELD format (see page J-4). 

b. Not contain constructs indicated on page J-1 under $TSSEDIT 
option). 

c. Have I/O statements with a Unit Number n, where n is defined 


in a file card of the form: 
FILEbbn=FILEN , UNIT=REMOTE 


or use the PRINT and READ statements (which by default 


reference the user's terminal), 
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d. Have their compilation and execution errors printed on 


the terminal and referencing a line number. 
e. Not produce any line printer compiler output. 


FORTRAN REMOTE FREE-FIELD FORMAT (Time-Sharing). 

Ordinarily, FORTRAN retains special meaning for columns 1, 1-5, 6; 
and 7-72. However, in Time-Sharing FORTRAN; these special meanings 
are abandoned, and the following conventions are used (assuming that 
TSSEDIT is not used, see page J-2). Note that column 1 refers to 


the first column following the sequence number, 


ae Continuation cards contain a minus (-) in column 1, and the 
card text starts in the first non-blank column or in column 


7; whichever comes first. 


b. Comment cards contain a C in column 1, a minus (-) in 


column 2, and the comment starts in column 3. 


Cc. Labeis may be a tiaximun 


imbedded blanks (imbedded blanks do not contribute to the 


EN | SENS oo oe Amo and 
OL tive CUtLULMILELS LVilg AiluU 


value of the label but do count in the five column limita- 
tion). A non-blank non-numeric character, or the seventh 
column after the start of the label, ends the label and 
starts the card text. A label may be separated from the 
sequence number by any number of blanks. For example; 


(b represents blank): 


SEQ# 

1000bbb...bb1A=B 
2000bbb...bb1b2b3bA=B 
3000bbb. .. bbl b3bbbbA=B 
4OOObbb. ..bb12345A=B 


In the above examples, the underlined character is the first 
character of the card text, and the labels have, respective- 


ly. the values 14.1234 13 y-and.12345. 


APPENDIX J (cont) 


Gs File cards must start in column 1; therefore, the word 
FILEbb starting in column 1 is reserved in REMOTE FREE- 
FIELD format. 


e. Dollar-sign control cards contain a $ in column 1 and 


control information in columns 2 through 72. 


Ti For all other cards; the card text starts with the first 
non-blank character. 
g. Only 66 columns of card text (see paragraphs a, c, and f 


above) are allowed. Additional text will elicit syntax 


error #149 (A TSS SOURCE LINE MUST HAVE LESS THAN 67 COLS.). 


FORTRAN LIMITED FREE-FIELD READ. 


The characteristics of a limited free-field READ in the compiler is 


a. The free-field READ is indicated by a slash (/), and 


replaces the format statement number in the READ statement. 


b. All blanks in the data field are ignored. 


c. Only numerical or logical statements are acceptable to the 
compiler. 

d. Commas (,) are used as delimiters. 

e. "TRUE" or 1; and "FALSE" or O represent that particular 


condition in a logical data field. 
f. Double precision is permitted, but only the most significant 
half is transmitted. This means that double precision is 


treated as a single precision constant. 


&. If a parity branch appears in a READ statement, a type 


J-5 


h. The free-field READ condition is terminated when either a 


list is exhausted, or an End-of-File is encountered. 


Examples: 
READ /, A, B, C, D 
5.4, bb3.572, .95E+03, 5.39E-04 


LOGICAL X,Y 
READ /, C, D, X, Y 
4.9, .039, "TRUE", 1, 5 


LOGICAL A, B, C, D 
READ (5, /) A, B, C, D 


O, "TRUE", "FALSE", 1 


READ(1,/, END=50, ERR=6) C, D 
5.4E+06, .095 


J-6 


INDEX 


Action Label, 7-2, 7-7 BUFFERing, 7-49, B-4 
Actual Argument, 3-2 


Netaad. Pa ramet eres 6. e210; CALL EXIT Statement, 5-8 


5-11, 6-9, 8-3, 8-5, 8-6, A-1 CALL Statement, 5-10, 8-10 

Alphanumeric, A-1l CALL ZIP Statement, 5-11 

AND, 3-5, H-1 Cards, Change, 1-2 

Area Option, 7-49, 7-50 Cards, Comment, 1-1, 1-3 

-~ARG .GT. MAX f, E-1 Cards, Continuation, 1-2, 1-3, B-4 

Argument, Actual, 3-2 Cards, Dollar Sign, 1-1, 1-4, C-1l 

Arguments, Dummy, 8-1, 8-2 Cards, FILE, 7-48, 7-49, 7-50, 

Arithmetic Assignment a i 

Statement, 4-1 Cards, Patch, C-i 

Arithmetic Expression, 3-1 Cards, Program, 1-1 

Arithmetic IF Statement, 5-4 Carz@ige Control, 7-28, 7-29 

Arithmetic Operators, 3-1 Change Cards, 1-2 

Array, 2-8, 2-9, 6-2, 7-1, 7-27 Character Set, 2-1 

Array Subroutine Transfer, 8-8 Character String, 2-6, 7-23, 7-24, 
7725 


Array, Format In, 7-27 
ASSIGN Statement, 4-3, 5-3 
Assigned GO TO Statement, 4-3, 


CHECK Option, C-5 
CLOSE Statement, 7-10 


5-3 Collating Sequence, G-1 
Assignment Operator, 4-2, A-1 Comment Cards, 1-1, 1-3 
Assignment Statement, , COMMON Statement, 2-8, 6-1, 6-3, 
Arithmetic, 4-1 6=8; 6-13, 8-4, 8-7; 8-12, 8-13 
Assignment Statement, Compile Time Error Messages, D-1l 


Logical, 4-2 
Auxilairy I/0 Statement, 7-8 
Aw, 7722, 7-23 


COMPLEMENT Intrinsic, H-2 
Complex Constant, 2-5 

Complex Variable, 2-7, 6-4 
Computed GO TO Statement, 5-2 
CONCAT Intrinsic, H-3 


BACKSPACE Statement, 7-9, 7-10 


Bey, 222 Ana 


Bit-Manipulation Constant, Complex, 2-5 


Intrinsics, H-1l Constant, Double Precision, 2-3, 

Blanks, Significance of, 1-1, ae 

1-2, 2-2, 7-13 Constant, Hollerith, 2-6, 5-10, 
8- 6-1 

BLOCK DATA Statement, 6-4, 6-13, Ds 3 

8-5, 8-7, 8-13 Constant, Integer, 2-3 

BLOCKING, 7-48, B-3 Constant, Logical, 2-6 

Bounds, Subscript, 2-8, 6-1 


one 


INDEX (cont) 


Constant, Real, 2-3 
Constants, 2-2 


CONTINUE Statement, 5-7 


Continuation Cards, 1-2, 1-3, 
1-4, B-4 

Control, Carriage, 7-28, 7-29 
Control Statement, 5-1 

DATA Statement, 2-8, 6-12, 8-H, 


8-7, 8-12, 8-13 
-DATA STMT ERR, E-1 
DEBUGN Option, C-3 
Deck Set-Up, 1-5 


Declarative (Non-Executable) 
Statement, 6-1 


Default Descriptions, File, B-l 


Differences From USASI 
FORTRAN, F-3 


DIMENSION Statement, 2-8, 6-1, 
6-3, 6-13, 8-13 
Dimensions, Variable, 5-10, 6-2, 


Disk File, Random, 7-4, 7-5, 7-6 
Disk File, Serial, 7-4, 7-5 

Disk I/0, 7-49 

Disk Unformatted Output, 
Disk I/O, Random, 7-51 
Disk 1/0, Serial, 7-50 
~DIV BY ZERO, E-1 

DO Loop, Implied, 7-6 
DO Statement, 5-5 


7-41 


Dollar Sign Card Options, C-2 
Dollar Sign Cards, 1-1, 1-4, C-1 
Double Precision Constant, 2-4 


Double Precision Variable, 2-7, 


6-4, 7-18 
Dummy Arguments, 


Dw.d, 7-18, 7-26 


8-1, 8-2 


End-of-File Condition, 7-7 


END Statement, 1-2, 1-3, 8-5, 8-7 
ENDFILE Statement, 7-10 
Entry Points, Multiple, 8-10 


ENTRY Statement, 8-11 
-EOF NO LABEL, E-1 
EQUIVALENCE Intrinsic, H-2 


EQUIVALENCE Statement, 6-4, 6-7, 
8-4, 8-7, 8-13 
Error Messages, Compile Time, D-l 


Error Termination Messages, 
Object Time, E-1 

Ew.d, 7-16, 7-17, 7-18, 7-26 
Executable Program, A-1 
Executable Statement, 2-8, A-1 
-EXPON OVRFLW, E-2 

Exponent, A-1 

Expression, 3-1, A-1 
Expression, Arithmetic, 3-1 
3-4, 4-2 


Expression, Logical, 


Extensions Permitted in Burroughs 
FORTRAN, F-1 


8-3, 8-5 
6-11, 8-2, 


External Function, 


EXTERNAL Statement, 
8-12 


Field, Hollerith, 2-2, 7-23, 
7-24, 7-25 | 


FILE Card Format, B-1l 
FILE Card Options, B-2 


FILE Cards, 7-48, 7-49, 7-50, 
Ba, 6-1 


FILE Default Descriptions, B-l 
FILE Specifier (Unit Number), 7-1 
7-1, 7-51 
Fixed-Point, A-1 

-FLAG BIT, E-2 

Floating-Point, A-1 


File, Random, 


two 


INDEX (cont) 


Format, FILE Card, B-1 

Format In Array, 7-27 

Format Specifier, 7-1, 7-2, 7-4, 
775 

FORMAT Statement, 7-1, 7-2, 7-4, 
7212, 7-23, 7-27, 7-29 


Formatted Output Statements, 7-4, 
7-12, 7-27, 7-29, 7-32 
Free Fieid Format, i-i 
Free Field Read, J-5 
-FRMT ERROR, E-2 

8-3, 8-5 
8-2 
3-2, 
8-1, 
8-1, 
8-1 


Function, External, 


Function, Intrinsic, 
Soh 
8-2 


8-2 


Function Reference, 
FUNCTION Statement, 
Function, Statement, 


Function Subprogram, 


Gw.d, 
GO TO 


GO TO 
D>) 
GO TO 


GO TO Statement, 
ditional, 5-1 


7-11, 7-26 
Statement, 


eal 


Statement, Assigned, 4-3, 


Statement, Computed, 5-2 


Uncon- 


HOL Option, C-4 


Hollerith Constant, 2-6, 5-10, 
8-5 

Hollerith Field, 2-2, 7-23, 
7-24, 7-25 

wHs, 7-23, 7-24, 7-25 
Identification, B-2 

IF Statement, 5-4 

Implied DO Loop, 7-6 

Index, Invalid, 5-2, 5-3 
Input Statement, 7-1, 7-6 
Input Statements, 
Formatted, 7-2, 7-27, 7-29 


Input Statements, 
Unformatted, 7-3 


2-3 
2-7; 7-13 


integer Constant, 
Integer Variables, 
-INTGR OVRFLW, E-2 
Intrinsic Function, 8-2 
Intrinsics, Bit Manipulation, H-1 


-INVALTID ADRS: E-2 


3 


-INVALID ARG CONCAT, E-2 


-INVALID EOJ, 1-3, E-2 
Invalid Index, 5-2, 5-3 
1/0, Disk, 7-33, 7-49 

I/O, List, 7-2, 7-6, 7-29, 7-30 
1/0, Random Disk, 7-51 
1/o, Serial Disk, 7-50 
I/O, Tape, 7-33 

Iw, 7-13, 7-14 

Label, Action, 7-2, 7-7 
Label, Statement, 1-1, 1-2 
LIST Option, C-2 


List, 1/0, 7-2, 7-6, 7-29, 7-30 
-~LIST SIZE ERROR, E-3 
7-25 
7—11 


Literal String, 
LOCK Statement, 
Logical Assignment Statement, 4-2 
Logical Constant, 2-6 
Expression, 3-4, 4-2 

IF Statement, 5-4 

3-4, 3-5 

3-4 

2-7, 3-4, 7-21 
7-6 


Logical 
Logical 
Logical Operators, 
Logical Quantity, 
Logical Variable, 
Implied DO, 


7-22 


Loop, 
Lw, 7-21, 


Main Program, A-2 


Mantissa, A-2 


three 


‘INDEX (cont) — 


MCP, ix, A-2 Output Statements, Unformatted, 


Multiple Entry Points, 8-10 (295 7909 2333 1-94 
Ow. 7o20s Foot 


-NAMELIST Statement, 7-1, 7-2, 


7-4, 7-30 nP (Scale Factor), 7-17, 7-26, 
-NEGATIVE BASE XTOI, E-3 7-29 
-NEGTV ARGMNT LN, E-3 Parameters, Actual, 5-9, 5-10, 


Belin. 6-11, (8-9, 8=5,- 863. Aed: 


-NEGTV ARGMNT SQRT, E-3 Parameters, Formal, 5-9, 5-10, 


NEW or NEW TAPE Option, C-3 5-11, 8-3, 8-5, 8-6, 8-10, A-1 
-NMLST ERR, E-3 Parity Condition, 7-7 

NOSEQ Option, C-4 Patch Cards, C-1 
Non-Executable (Declarative) PAUSE Statement, 5-8 


Statement, 1-2, 6-1, A-2 
Nonstandard Return, 8-10 


Precedence, 3-2, 3-4 
Primary, A-2 


NOT x 222 Program Cards, 1-1 
Number, Sequence, 1-2, 1-3, B-2 Program, Executable; A-1 
C-1, C-2 

Program, Main, A-2 
Object Program, PRT Contents of Program Unit, A-2 


a FORTRAN, I-1 


Object Time Error Termination 
Messages, E-1 


Octal (DATA Stmnt), 7-20 


PRT Option, A-2, C-3 
PRT Contents of 0) 


~~ Wwe Vee 


a 
Object Program, Fea 
PURGE Statement, 7-12 
Operator, Assignment, 4-2, A-1 

Operators, Arithmetic, 3-1 Quantity, Logical, 3-4 
Operators, Logical, 3-4, 3-5 


Operators, Relational, 2-2 Random Disk File, 7-4, 7-5, 7-6 


-OPRTR DS-ED, E-3 Random Disk I/0, 7-51 

Option, AREA, 7-49, 7-50 Random File, 7-1, 7-51 

Option, RANDOM, 7-51 Random Option, 7-51 

Option, SERIAL, 7-50 cena Record Number, 7-1, 7-3, 


Options, Dollar Sign Card, C-2 
Options, FILE Card, B-2 


Read, Free-Field, J-5 
Real Constant, 2-3 
Options, Time-Sharing, J-1 Road Wantables 227, 7-14, 7-16 


OR, 3-5, H-1 Record Number, Random, 7-1, 7-3, 
Output Statement, 7-4, 7-6 7-5 


Output Statements, Formatted, 7-4, Record Control Words, 7-34 
7712, 7-27; 7-29, 7732 


four 


INDEX (cont) 


8-4, 8-7 

A-2 

Reference, Function, 3-2, 3-4 
Relation, 3-4, 3-5 


Relational Operators, 


Recurse, 


Reference, 


2-2 


Remote Free-Field Format 
(Time Sharing), J-4 


7-29 
Restricted Field Format, 
Return, Nonstandard, 8-10 


RETURN Statement, 5-9, 8-4, 8-5, 
8-7 


REWIND Statement, 


Repeat Count, 
1-1 


1292 


Scale Factor, 7-17, 7-26, 7-29 
-SELECT ERROR, E-3 
1-2, 2-2 
SEQ f s i Option, C-4 
Collating, 


1-2, 


Semicolion, 


G-1 
1-3, 


Sequence, 


Sequence Number, 
C-1, C-2 


Serial Disk File, 7-4, 7-5 
Serial Disk I/0, 7-50 
SERIAL Option, 7-50 

SGL or SINGLE Option, 


B-2, 


C-2 


Significance of Blanks, 1-2, 


7-13 
Simple Variable, 
Slash, 7-28 


Specifier, File (Unit Number), 
yal 


2-2, 


2-7 


SPO, 5-8, A-2 
-~STACK OVRFLW, E-4 


Statement, Arithmetic 
Assignment, 4-1 


Statement, Arithmetic IF, 5-4 


Statement, ASSIGN, 4-3, 5-3 
Statement, Assigned GO TO, 4-3 
5-3 

Statement, Auxiliary I/0, 7-8 
BACKSPACE, 7-9, 7-10 
Statement, BLOCK DATA, 6-4, 6-13, 


statement, 


8-5, 8-7, 8-13 

Statement, CALL, 5-10, 8-10 
Statement, CALL EXIT, 5-8 
Statement, CLOSE, 7-10 
Statement, COMMON, 2-8, 6-1, 6-3, 
6-7, 6-13, 8-4, 8-7, 8-12, 8-13 
statement, Computed GO TO, 5-2 
Statement, CONTINUE, 5-7 
Statement, Control, 5-1 
Statement, DATA, 2-8, 6-12, 8-4, 
8-7, 8-12, 8-13 

Statement, DIMENSION, 2-8, 6-1, 
6-3, 6-13 

Statement, Declarative 
(Non-Executable), 6-1 

Statement, DO, 5-5 

Statement, END, 1-2, 1-3, 8-5, 
8-7 

Statement, ENDFILE, 7-10 
Statement, ENTRY, 8=11 
Statement, EQUIVALENCE, 6-4, 6-7, 
8-4, 8-7, 8-13 

Statement, Executable, 2-8, A-1 
Statement, EXTERNAL, 6-11, 8-2, 
8-10 

Statement, FORMAT, 7-1, 7-2, 7-4, 
77-12, 7-23, 7-27, 7-29 
Statement Function, 8-1, 8-2 
Statement, FUNCTION, 8-3, 8-5, 
8-7, 8-10 

Statement, GO TO, 5-1 

Statement, IF, 5-4 

Statement, Input, 7-1, 7-6 


five 


INDEX (cont) 


Statement, Label, 1-1, 1-2 TAPE or CARD Option, C-2 
Statement, LOCK, 7-11 TIME Option, C-5 
Statement, Logical Assignment, Time-Sharing FORTRAN, J-1l 
42 Tn, 7-25 


Statement, Logical IF, 5-4 


Statement, NAMELIST, 7-1, 7-2, 
7-4, 7-30 


Statement, Non-Executable 
(Declarative), 6-1, A-2 


Statement, Output, 7-4, 7-6 


TRACE Option, C-3 
-~TYPE ERR, E-4 


Type Statement, 2-7, 2-8, 6-1, 
653. 6-10, 6-13, 6213 


Unconditional GO TO Statement, 


Statement, PAUSE, 5-8 5-1 
Statement, PURGE, 7-12 Unformatted Disk Output, 7-33 
Statement, RETURN, 5-9, 8-4, 8-5, Examples Of, 7-41 
8- 

7 Unformatted Output Statements, 
Statement, REWIND, 7-9, 7-51 7-3, 7-5, 7-33 
Statement, STOP, 5-8 Unformatted Tape Output, 7-33, 
Statement, Subroutine, 8-5, 8-6, Examples Of, 7-35 
8-7, 8-10 


Unit Number (File Specifier), 7-1 
Statement, Type, 2-7, 2-8, 6-1, 
623% 6210;. 6-13, 8-11 


Use of Single Precision Constants 
in Double Precision Statements, 


Statement, Unconditional GO TO 2-5 

PR ane USASI, ix, 2-1 

STOP Sta bemenps “3° USASI FORTRAN, Difference From, 

String, Character, 2-6, 7-23, F-3 

7-24, 7-25 

String, Literal, 7-25 Variable, Complex, 2-7, 6-4 

Subprogram, 8-1, A-2 Variable Dimensions, 5-10, 6-2 

Subprogram, Function, 8-i Variable, Double Precision, 2-7, 

Subprogram, Subroutine, 8-6 6-4, 7-18 

Subroutine Statement, 8-5, 8-6, Variable, Integer, 2-7, 7-13 

8-7, 8-10 Variable, Logical, 2-7, 3-4, 7-21 
Passing Data, 8-8 Variable, Real, 2-7, 7-14, 7-16, 

Subroutine Subprogram, 8-6 Won? 


Variable, Simple, 2-7 
Variable, Subscripted, 2-8, 5-11 
Variables, 2-7 


VOID n, C-5 


Subscript Bounds, 2-8, 6-1 
Subscripted Data Transfers, 8-8 
Subscripted Variable, 2-8, 5-11 
Subscripts, 2-7, 2-8, 5-11 


six 


INDEX (cont) 
nx, 7-25 


-ZERO ARGMNT LN, E-4 
-~ZERO MODULUS DMOD, E-4 
ZIP Error - Ignored, E-4 
ZIP Statement, CALL, 5-11 


seven 
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